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ABSTRACT 


This  thesis  presents  the  adaptation  of  a  mul  ti-comcuter 
real-time  executive,  MCCETEX,  to  a  target  environment 
consisting  of  a  set  of  INTEL  P6/12A  single  board  computers 
in  a  VULT I FU S  back  plane.  CP/M-86  is  brought  un  ier  the 
control  of  MCCETEX,  and  mechanisms  are  implemented  tc 
provide  access  to  the  MC0RTEX  supervisor  from  Digital 
Research's  PL/I-86  language  system. 

Initially  CP/M-86  is  operating  the  system  of  micro¬ 
computers  in  a  multi-user  mode.  M, CORTEX  and  user  processes 
are  loaded  from  CP/M-66  files.  Use  of  all  CP/M-86  functions 
is  retained  and  MCCETEX  can  be  used  by  PL/I  86  conpiled 
applications  programs  to  do  multi-processing. 
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I.  INTRODUCTION 

A.  GENERAL  DISCUSSION 

This  thesis  presents  the  adaptation  cf  a  kernel, 
real-time  micro-computer  based  multi-processor  operating 
system,  called  MCO-TEX,  tc  allow  simultaneous  user  access  to 
the  CP/i“!  operating  system  as  well  as  to  MCCRTEX.  User 
program  development  using  Digital  Research's  PL/I-&6 
language  system  is  supported. 

Improvement  in  micro-processor  capabilities,  ar.d 
performance,  combined  with  continued  reductions  in  hardware 
cost  portend  the  development  of  powerful,  relative1- 
inexpensive  micro-processor  systems.  Continued  succes;  n 
VLSI  technology  applications  in  parallel  with  development  o' 
appropriate  operating  systems  will  produce  systems  superior 
in  many  respects  to  computers  developed  using  current 
mainframe  technology.  Systems  of  proc°ssors  allow  for 
graceful  degradation  under  fault  conditions  and  for 
distribution  of  the  system,  enhancing  survivability  in 
hostile  environments.  Further,  parallel  processing  allows 
increased  throughput  and  response  time,  and  in  real  time 
application  nan  guarantee  successful  monitoring  at  high 
sample  rates  and  densities,  without  conflict. 

A  successful  multi-processor  system  must  control 
sequencing  o'  inter-independent  processes  and  access  to 


limited  resources.  For  efficiency  it  must  provide  the 
cortext  switching  necessary  for  multi-processing  on 
individual  processors.  Additionally,  conflicts  arising  from 
simultaneous  multi-processor  access  to  common  memory  must  be 
minimized  without  degrading  throughput.  This  should  te 
accomplished  at  a  reasonable  cost  and  in  a  manner  that 
allows  as  many  processors  as  are  necessary  to  achieve  the 
d°sired  degree  of  concurrence  and  robustness. 

The  purpose  of  this  thesis  is  to  advance  the  development 
of  a  real  time  nul t i -pr oces so r  system  within  the  overall 
goals  of  the  AEGIS  weapons  system  simulation  project.  These 
goals  include  the  demonstration  of  the  operating  system  on 
commercial ly  available,  inexpensive,  general  purpose  micro¬ 
computers.  The  system  should  reouire  minimum  development  of 
both  hardware  and  software.  To  the  maximum  extent  possible, 
custom  developments  should  be  completely  general  in  nature. 
In  pursuit  of  these  goals,  MCCRTFX  is  configured  to  execute 
in  conjunction  with  a  commercially  available  operating 
system,  making  the  functions  of  both  systems  available  to 
user  programs.  Additionally,  mechanisms  allowing  user 
program  development  within  the  framework  of  a  commercially 
available  language  system  are  provided. 

3.  BACKGROUND 

The  AEGIS  weapons  system  relies  on  the  four -processor 
A\/UY K-?  mainframe  computer  for  real-time  processing  of 
large  amourts  of  data  concerning  target  detection  and 


discrete  or  car.  overlap  cn  boundaries  that  are  multiples  of 
16  bytes,  depending  on  segment  resister  values. 

The  iSBC36/12A  provides  serial  I/O  through  an  INTEL 
3251*  US  ART ,  parallel  I/O  through  an  INTEL  8255A  ?PI  and  a 
broad  range  of  interrupt  control  through  the  INTEL  8259* 
PIC.  •''’CORTEX  operates  using  interrupt  4.  The  interrupt  is 
generated  via  output  to  parallel  pert  B,  as  proposed  by 
perry  fRef.  5:  pp.  65  to  69].  Both  the  hardware  and 
Software  implementations  are  exactly  as  presented  by  Perry. 

5 .  OPERATING  SYSTEMS 

A  copy  of  MCOPTEX  resides  in  each  processors  local 
memory  and  is  a  distributed  part  of  the  address  space  of 
each  local  process.  Additionally,  GL03.5  L  memory  is 
accessible  to  MCORTEX  to  facilitate  interprocess 
synchronization.  A  system  interrupt  under  MCORTEX  control, 
ir  conjunction  with  interrupt  flags  maintained  in  GLOEAL 
memory,  provides  communication  initiation  between  real 
processors.  Upon  receiving  an  interrupt,  eacn  processor 
checks  its  flag  in  GLOBAL  memory  to  determine  if  the 
interrupt  is  intended  for  a  process  in  its  local  memory.  If 
ret,  the  process  executing  at  the  time  of  the  interrupt 
continues.  Otherwise  a  call  is  made  to  the  ^CORTEX 
scheduler  and  the  highest  priority  ready  process  is  given 
control  of  the  CPU.  For  communication  between  processes  in 
a  common  local  memory,  r,o  interrupt  is  issued,  a  call  to 
the  scheduler  is  made  dirpctly. 


presently  use!  wiring  option  excludes  off  board  access  to 
l^cal  RAM.  differences  between  memory  access  times  at  the 
first  two  levels  are  negligible,  b  i  t  memory  accesses 
involving  MULTIBUS  reauire  a  minimum  25%  increase  in  access 
time . 

The  high  performance,  general  purpose  3086  micro¬ 
processor  base  of  the  iSEC86/12A  contains  an  Execution  Unit 
(EU)  and  a  Bus  Interface  Unit  'BIU).  EU  functions  are 
supported  by  instruction  fetches  and  operand  reads  and 
writes  conducted  by  the  BIU.  The  BIU  can  stack  instructions 
in  an  internal  RAM  to  a  level  of  six  deep  increasing  EU 
efficiency  and  decreasing  bus  idle  time. 

The  5036  has  eight  16  bit  general  purpose  registers, 
four  being  byte  addressable.  The  remaining  four  are 
primarily  pointer  registers,  but  can  be  used  as 
accumulators.  Additionally,  the  8086  has  four  segment 
registers,  an  instruction  pointer  register  and  a  flag 
register  with  nine  status  bits. 

t  sogmerted  one  mega-byte  address  space  is  provided  for 
by  the  8086  micro-processor.  This  is  accomplished  by 
combining  the  16  bits  cf  each  segment  register  left  shifted 
four  bits,  with  the  16  bits  of  an  associated  pointer 
register  unshifted.  The  resulting  20  bits  form  a  physical 
address.  For  any  given  segment  register  value  64k  bytes  of 
memory  can  be  addressed  through  manioulation  of  the  pointer 
register  alone.  The  64k  byte  memory  spaces  formed  can  be 


III.  SYSTEM  ARCHITECTURE 
A.  SYSTEM  HARDWARE 

This  implementation  of  MCORTEX  is  based  on  the  INTEL 
1SEC36/12A  single  board  computer  using  a  MULTIEUS  back 
plane.  Specific,  detailed  information  pertaining  to  both 


these  components 

is  available 

in  [Ref. 

3]  and  TRef.  i]  . 

The 

MULTIBUS 

also 

connects  two 

memory 

extensions  into 

the 

sys  tem  . 

A  32K 

ex  ten  si  on 

is  used  as 

common  memory 

for 

interprocess  communication  under  MCORTEX  and  for  C?/M  multi¬ 
user  system  control.  A  64K  extension  provides  additional 
memory  required  to  operate  the  PL/I-86  compiler  and  other 
utilities  not  constrained  to  execute  in  the  64K  of  memory 
local  to  each  processor.  Additionally,  a  bubble  memory 
system  and  a  hard  disk  system  are  available  on  MULTI5US.  A 
second  hard  disk  system  is  accessed  through  the  parallel 
port  of  one  SBC.  Figure  1  is  a  representation  of  this 
configuration  with  two  SBC 's  shown. 

The  iS BC86/12 A  provides  a  three  level  hierarchical  bus 
structure.  At  the  first  level,  the  9096  processor 
communicates  through  the  on  board  bus  with  up  to  4K  of  ROM, 
with  serial  and  parallel  I/O  ports  and  with  the  dual-port 
bus.  Control  and  access  to  local  RAM  is  provided  by  the 
second  level  dual-port  bus.  The  third  bus  level,  the 
MULTIBUS  interface,  provides  access  to  the  MULTIBUS.  The 


pointer.  ^This  information  is  stored  in  GLOBAL  memory.) 
Third,  since  each  process  was  uniauely  identified  by  its 
stack  segment  register,  MCORTFX  functions  did  not  need  to 
identify  the  process  they  were  responding  to  when  using  the 
scheduler  The  scheduler  simply  stored  state  information  at 
the  base  of  whatever  stack  segment  was  active  when  the 
scheduler  was  called. 

The  assumption  that  each  process  used  a  different  stack 
segment  value  is  net  completely  general,  and  in  fact  was  not 
true  for  procedures  compiled  and  linked  under  the  Digital 
Research  PL/I-86  language  system.  This  conflict  forced 
changes  in  the  context  switching  mechanisms  of  MCORTFX.  The 
entire  stack  oointer  (3S  and  SP  registers)  is  now  stored  in 
GLOBAL  memory,  and  MCC^TSX  functions  making  use  of  the 
scheduler  must  indicate  (in  the  Processor  Data  Segment 
Table,  PHIS)  which  virtual  processor  they  are  servicing. 

E.  DELETED  FUNCTIONS 

Functions  previously  available  under  MCOI.TEX  include 
0UT$ CKA R ,  OUT$LINF ,  CUT$NUM,  OUTiDWJM,  INSOFAR,  IN^NUM,  and 
IN$DNUM.  With  CP/M-86  under  the  control  of  MCOPTFX,  these 
utility  functions  are  redundant  and  have  been  removed. 
However  a  version  of  MCORTFX  with  these  functions 
incorporated  has  been  retained  for  troubleshooting  purposes. 
The  monitor  process  incorporated  by  Klinefelter  has  also 
been  removed  in  light  of  the  availability  of  DDT86. 
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of  portability.  The  context  switching  routines  in  hCOF.TEX, 
including  the  virtual  processor  scheduler  and  tne  interrupt 
handler,  are  the  only  portions  of  the  PCCRTEX  core  written 
in  assembly  language.  Another  decision  motivated  by  the 
speed  imperative  assumed  that  each  virtual  processor  owned  a 
stack  for  storing  state  information .  This  decision  was 
followed  by  another  assuming  that  the  stack  segment  pointer 
for  each  stack  was  different.  This  allowed  a  bootstrap  like 
context  recovery.  A  search  through  the  virtual  processor  map 
identified  the  highest  priority  ready  process.  Virtual 
orossor  map  information  included  the  process  stack  segment 
value.  This  value  was  retrieved,  and  subseauently  used  to 
retrieve  th^ee  additional  pieces  of  processor  state 
information.  Offsets  zero,  two,  and  four  from  the  stack 
segment  were  used  to  retrieve  the  process  stack  pointer 
value,  the  process  stack  base  pointer  value,  and  a  return 
type  indicator.  Recovery  of  the  stack  state  allowed 
recovery  of  the  entire  state  of  the  virtual  processor,  ar.d 
nrocessing  could  continue. 

This  context  switching  method  has  many  advantages. 
Tirst,  once  the  stack  segment  of  a  process  has  been  stored 
in  a  known,  retrievable  location,  it  never  needs  updating. 
The  base  of  the  stack  remains  fixed,  and  access  is 
controlled  through  the  contents  of  the  first  few  bytes  at 
the  base  of  the  stack.  Second,  less  space  is  reauired  to 
store  the  stack  segment  than  to  store  the  entire  stack 


always  assigned  to  the  highest  priority  ready  virtual 
processor  on  each  board  regardless  of  which  synchronization 
function  envoked  the  scheduler.  Before  using  ADVANCE  or 
AWAIT,  an  event  count  must  be  created  using  CREATE$EVC. 
Consumers  and  producers  then  communicate  using  the  agreed 
upon  event  count.  The  current  value  of  an  event  count  car. 
be  determined  through  a  call  on  READ.  The  functions  of 
CPEATESSEQ  and  TICKET  are  as  discussed  earlier,  but  with 
broader  applications. 

f'CORTEX  handles  two  types  of  context  switching.  The 
first  type  results  when  control  of  a  CPU  is  relinquished 
through  a  KCOP.TEX  function  call.  Under  these  conditions  the 
calling  process  is  not  halted  in  the  midst  of  some  task,  but 
at  a  place  'convenient'  for  the  process.  Some  subset  of  the 
processors  registers  contains  all  reauired  state 
information.  ^CORTEX  assumes  this  subset  includes  the  DS , 
I?,  CS ,  SS,  SP,  and  B?  registers.  Additionally,  a  "normal" 
return  indicator  is  saved.  The  second  type  of  context 
switching  results  from  an  interrupt.  This  switching  assumes 
nothing,  and  saves  the  complete  state  of  the  process  being 
interrupted  as  well  as  an  'interrupt'  return  indicator. 
This  recognition  of  two  switch  types  makes  context  switching 
faster  for  the  more  common  ’normal'  return. 

Early  iroplemen ter s  of  MCCRTEX  considered  the  context 
switching  overhead  question  in  detail.  Their  solution  gave 


greater  importance  to  the  issue  of  speed  than  to  the  Issue 


If  the  resorrce  is  not  busy,  the  process  will  receive 
immediate  access,  otherwise  the  process  gives  up  the  CPU. 

C.  PFOCtSS  I  NTFGR  I TY 

The  design  of  MCORTEX  relies  heavily  on  user  cooperation 
for  process  integrity.  The  supervisor  controls  access  to 
the  MCORTEX  functions,  but  even  this  is  a  software  control 
and  will  not  withstand  malicious  assult  or  catastrophic 

failure.  MCORTEX  is  targetted  at  embedded  systems 

applications  where  malicious  assault  is  not  expected. 
Protection  from  catastrophic  failure  reouires  hardware 

protection  not  presently  in  the  system.  The  low  cost  of 
micro-computers  however,  allows  for  redundant  tack  up 

systems  which  can  limit  the  affects  of  catastrophic  failure. 

D .  INTERPROCESS  SYNCHRONIZATION 

Frocess  synchronization  is  accomplished  u-ider  MCORTEX 
through  the  functions  ADVANCE,  AWAIT,  and  PREEMPT.  These 
synchronizing  primitives  are  supported  with  the  functions 
CPEATE$  EVC ,  CREATE$SEO,  READ,  and  TICKET.  Consumer 

processes  use  AWAIT  to  ensure  that  data  they  require  is 

ready .  Producer  processes  use  ADVANCE  to  inform  consumers 
that  new  data  has  been  computed.  PREEMPT  is  used  by  ere 

process  to  directly  ready  another  process.  This  primitive 

is  for  activation  of  high  priority  system  processes  of  a 
time  critical  nature.  A  call  on  a  synchronizing  primitive 


may,  or  may  not  result  in  relinquishing  the  CPU.  The  CPU  is 


lock,  it  is  given  sole  access  to  the  common  tus  for  one 
instruction  cycle.  During  this  cycle,  the  process  mak^s  an 
exchange  of  the  value  in  a  register  (contents  77  H)  with 
GLCBALALOCK .  The  processor  then  examines  the  contents  of 
the  exchange  register.  If  the  register  now  contains  zero, 
the  processor  is  granted  access,  if  not,  the  process  repeats 
the  procedure  until  a  zero  is  obtained  from  GLOBA.LSLCCK . 
Because  access  to  GL03AL  memory  is  con t rol led  by  MC03TEX , 
waits  should  be  infreouent  and  short  in  duration.  When 
relinquishing  the  software  lock,  the  process  merely  sets 
GLOEALSLOCK  to  zero. 

Users  have  no  access  to  GLOBAL  memory,  however  MCOitTEX 
provides  for  user  control  of  shared  resources  through  data 
held  in  GLOBAL  memory.  Sequencers,  located  in  the  sequencer 
table  section  of  GLOEAL  memory,  are  used  to  provide  a  turn 
taking  mechanism.  Each  shared  resource  is  assigned  a 
corresponding  sequencer.  When  processes  require  a  resource, 
they  request  a  turn  through  the  supervisory  furction  call 
TICKET,  SDecifying  the  applicable  sequencer.  TICKET  returns 
a  number  indicating  the  callers  turn  at  the  required 
resource.  This  is  similar  to  getting  a  turn  number  at  a 
barber  shop.  TICKET  advances  the  sequencer  value  i.n  global 
memory  so  that  succeeding  requests  receive  higher  numbers. 
The  process  requesting  the  resource  then  makes  another 
supervisory  call,  this  time  on  AWAIT,  providing  both  an 
identif ication  of  the  resource  and  the  process  turn  number. 
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iosical  organization  of  this  shared  resource  (see  the  last 


four  pages  of  Appendix  R  for  actual  locations.).  Access  to 
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GLOEAL  memory  is  controlled  through  the  combi^a t ion  of  a 
hardware  tus  lock,  and  a  software  loc*  ■ GL0BAL$LOCX )  located 
ir.  GLOBAL  memory.  When  a  process  sets  the  hardware  bus 


II.  IMPLANTATION  MODIFICATION  ISSUES 
A.  DESIGN  CONSIDERATIONS 

In  a  real-time  system,  multi-processing  on  a  single 
processor  decreases  processor  idle  time.  A  multi-processor 
configuration  extends  the  range  of  this  economy  and  provides 
opportunities  to  exploit  parallel  and  pipeline  processing 
technio  ues  that  further  enhance  overall  system  goals. 
Careful  corsideratior.  must  he  giver,  to  control  cf  shared 
resources,  o  roc ess  integrity,  interprocess  synch  ror.  izatior, 
methods  of  context  switch  initiation,  and  context  switching 
overhead . 

3.  SPARED  RESOURCES 

The  most  important  shared  resource  in  a  multi-processor 
environment  is  common  memory.  MCOETET  relies  on  a 
hierarchical  bus  structure  to  limit  the  requirement  for 
access  to  common  memory.  Each  nrocessor  has  local  memory, 
addressable  without  access  to  a  shared  bus.  A  process 
executing  in  local  memory  makes  demands  on  the  common  tus 
only  to  pass  computed  data  to  external  processes,  or  when 
'“'CORTEX  functions  are  used.  Related  processes  with  high 
intercommunication  rates  should  reside  in  the  local  memory 
of  a  single  processor,  thus  avoiding  high  common  bus  usage. 

To  perform  its  functions,  MCCE7EX  sets  uo  a  section  of 
common  memory  called  GLOBAL  memory.  Table  1  shows  the 


reta ired . Chapter  III  details  the  architecture  of  the  MCCRTEX 
envi  ronment ,  hi^hliffhtir.^  interactions  between  the  hardware, 
CP/P-05  and  M CORTEX . 

Chapter  IV  presents  the  PCOP.TEX  loader,  discussire- 
considerations  given  to  alternative  methods  for  invoking 
VCCRTEX  . 

Chapter  V  explains  the  interface  provided  between  PL/I- 
86  and  the  PCORTEX  supervisor.  Procedures  necessary  to 
successfully  create  MCORTEX  virtual  processors  are 
discussed . 

Chapter  VI  summarize  the  current  state  of  the  system, 
points  out  Droblem  areas,  and  makes  suggestions  for  future 
research  and  testing. 


and  executior  accomplished  via  download  throueh  a  serial 
link:  to  the  target  hardware. 


The  goals  of  this  thesis  are  to: 

1.  Bring  the  powerful,  highly  portable  functions 
of  the  CP/M-P6  operating  system  under  the  control  of 
VCORTIX.  This  will  provide  rapid  expansion  of  user 
capabilities  within  the  restrictions  imposed  by  the  r.on- 
reectrancy  of  CP/*!-36  utilities.  Using  MCGRTEX  functions, 
control  of  access  to  CP/K-86  can  be  selectively  applied 
depending  on  the  contextual  requirements  of  the  application. 

2.  Sever  the  link  with  the  development  system,  and 
provide  a  simple,  convenient  method  of  creating  the  MCOrTEX 
environment.  This  should  include  user  program  and  MCORTEX 
loading,  transfer  of  control  to  MCORTEX,  and  mechanisms  for 
return  of  control  to  CP/M-S6. 

3.  Provide  access  mechanisms  to  the  MCORTEX 
supervisor  compatible  with  Digital  Research's  PL/I-36 
language  system,  allowing  user  programs  to  be  developed  in  a 
high  l°vel,  portable  language. 

C.  STRUCTURE  OF  THE  THESIS 

Chapter  I  discusses  the  overall  direction  cf  the  AEGIS 
weapons  system  simulation  project  and  the  place  this  thesis 
holds  in  accomplishing  project  goals. 

Chapter  II  addresses  the  issues  which  resulted  in 
changes  to  MCORTEX  as  implemented  by  Klinefelter,  and 
presents  an  overview  of  the  MCORTEX  functions 


V  V. 
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acquisition.  A  project  at  the  Naval  Postgraduate  School 
seeps  to  denonstrate  that  a  system  as  complex  as  AEGIS  car. 
he  controlled  more  economically,  with  Improvements  in 
graceful  depredation  characteristics,  and  without 
performance  loss  using  a  distributed  system  of  micro¬ 
computers.  The  project  requires  identification  and 
implementation  of  an  applicable  hardware  configuration, 
development  of  a  suitable  operating  system,  duplication  of 
signif ioar.t  real-time  functions  o^  the  AEGIS  weapons  system 
and  incorpora ti on  of  valid  simulation  procecses  for  test  and 
evaluation  of  the  total  system. 

The  INTEL  iSPC  66/12A,  a  single  board  micro-computer 
based  on  the  16  bit  INTEL  8366  micro-processor,  was  selected 
as  the  system  hardware  base.  Initial  design  of  an  operating 
system  specific  to  the  INTEL  iSEC  86/12A  was  completed  in 
196?  and  implementation  was  a ccomplished  in  three  Naval 
Postgraduate  School  thesis  in  1961  and  1962.  The  second 
thesis  in  this  series  written  by  Cox  [Ref.  1]  simplified  the 
design  of  MCCRTEX  to  more  successfully  address  security  and 
overhead  issues  in  the  real-time  embedded  applications 
targetted  by  the  project.  Cox  also  added  a  supervisory 
layer  to  the  architecture,  simplifying  access  and  enhancing 
security.  Klinefelter  [Ref.  2]  expanded  and  generalized 
Cox's  work.  All  implementation  to  this  point  was  done  on 
the  ISIS-II  development  system,  with  multi-processor  test 


Access  to  MCORTEX  is  through  the  supervisor  at  the 


outermost  layer  of  the  MCORTEX  four  level  st  rue  ture 
discussed  by  Klinefelter  [Ref.  2  :  pp.  44-46].  Due  to 
incompatible  parameter  passing  implementations  in  PL/M-86, 
and  in  PL/I-96,  code  allowing  PL/I-86  access  to  the  MCORTEX 
supervisor  has  been  developed.  This  is  discussed  fully  in 
Chapter  V. 

Also  resident  in  each  local  memory,  if  required,  is  the 
CP/M-86  operating  system.  In  this  configuration  the  full 
range  of  CP/M  utilities,  [Ref.  6]  and  [Ref.  ?]  ,  is  available 
to  the  user.  Additionally,  development  of  user  processes  can 
make  use  of  any  of  the  broad  scope  of  commercially  available 
products  compatible  with  CP/M-86.  Figure  2  gives  a 
representation  of  the  locations  of  the  system  code.  The 
diagram  includes  the  location  of  DDT-a6  as  required  for  a 
debugging  session.  Also  depicted  are  the  locations  of  the 
MCORTEX  /  MXTR ACF  loaders.  During  load,  loader  memory  is 
not  reserved,  and  care  must  be  taken  to  ensure  that  a  CMP 
module's  code  or  data  section  does  not  overwrite  it.  It  is 
Permissible,  however,  to  include  this  memory  as  part  of  a 
module  stack  or  free  space,  since  these  structures  are 
developed  at  module  runtime  when  loader  functions  have  been 
compl  eted . 

C.  USE?  PROCESSES 

User  processes  may  be  located  in  areas  indicated  in 
Figure  2.  Additionally ,  if  CP/M-86  utilities  are  not 
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reauired,  memory  reserved  for  CP/M-86  may  hold  user 
process®  s . 

Description  of  processes  ir.  memory  are  provided  to 
MCCP.TiI  through  CREATE$PROC .  This  MCCRTEX  function  gives 
the  process  a  unioue  identification  number,  priority,  stack 
(SS  and  S?  registers),  next  execution  address  CS  and  IP 
registers),  data  segment  (D3  register),  and  extra  segment 
(?S  register).  MCCRTEX  establishes  the  process  initial 
context  using  this  information  to  create  a  virtual 
processor.  The  virtual  processor  exists  as  a  combination  of 
data,  both  in  GLOBAL  memory,  and  in  each  process  stack.  When 
executing,  the  virtual  processor  becomes  identical  with  the 
real  processor  state.  Relinouishing  the  CPU  forces  the 
virtual  processor  again  into  GLOBAL  memory  and  the  process 
stack . 

Special  effort  has  been  made  to  accommodate  processes 
created  under  PL/I-S6  and  linked  using  LINK86.  The  internal 
architecture  of  such  processes  reouires  some  consideration. 
LINKS6  concatenates  all  PL/I-86  code  segments  into  one 
segment.  The  same  is  done  with  data  segments.  Thus,  PL/I- 
86  processes  consist  of  a  series  of  contiguous  code  segments 
followed  by  a  series  of  contiguous  data  segments. 
Additionally,  at  run  time  PL/I-86  routines  create  a  stack 
following  the  data  area,  and  a  free  space  following  the 
stack.  The  resulting  process  configuration  is  shown  in 
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Acress  to  all  data  areas  resulting  from  a  single  link, 
is  referenced  to  a  common  data  segment.  Stack  pointers  are 
referenced  to  the  stack  segmert  register,  and  free  space 
pointers  to  the  extra  segment  register.  Additionally,  some 
PL/I-S6  runtime  routines  assume  the  contents  of  all  three 
segment  registers  ' DS ,  SS,  ES )  are  identical.  This 
assumption  disallows  process  stacks  with  unique  stack 
segments,  and  was  the  motivation  for  modifications  to 
MCCRTEX  discussed  in  Chapter  II.  For  the  demonstration 
programs  Dl.Cf'E  and  D2.C(*D  (Appendix  E)  PL/I-86  generated  a 
default  stack  of  size  400H  bytes.  This  area  was  subdivided 
to  provide  a  120H  byte  process  stack  arid  a  2E0E  system  stack 
in  the  case  of  Dl.CME,  and  two  120H  byte  process  stacks  and 
a  1C 30  byte  system  stack  ir.  the  case  of  D2.CMD.  The 
documentation  for  PL/I-86  [Ref.  S  :  p.  2.91  describes 
mechanisms  incorporated  in  the  PROCEDURE  statement  to 
specify  the  size  of  the  runtime  stack.  If  these  mechanisms 
function  as  described,  all  process  stacks  can  be  contained 
within  the  area  allocated  to  the  runtime  stack.  Otherwise 
process  stacks  can  be  constructed  following  the  free  space. 
This  area  would  be  unprotected  by  normal  CP/'d  CMD  file 
memory  management  functions,  ar.d  its  use  would  require  extra 
care . 

The  MCORTE7  C3EATE$PROC  parameters  include  the  absolute 
location  of  process  start,  stack,  and  data.  For  this  reason 
it  is  advantageous  to  locate  processes  absolutely  when 


linking.  LINK86  provides  such  an  option  [Ref.  9  :  p.  ?.6l, 
however,  the  ABSOLUTE  option  is  applicable  to  the  entire  C*L 
file  created  and  cannot  be  used  to  distribute  the  file  non- 
contiguously  in  memory.  Also,  experience  has  shown  that  the 
reauired  code  segment  address  must  be  placed  in  the  data's 
ABSOLUTE  declaration.  Further,  the  code  segment  ABSOLUTE 
declaration  must  hold  an  address  larger  than  the  sum  of  the 
value  placed  in  the  data  ABSOLUTE  declaration  and  the  size 
of  the  data  segment.  This  value  seems  to  have  no  effect  on 
the  location  of  the  file  but,  too  small  a  value  will  cause 
an  error  when  the  file  is  loaded.  See  Appendix  F  for 
examples  of  link  option  files  that  produce  correct  results. 

MCCRTFX  processes  may  be  linked  together  as  PL/I-P6 
procedures  allowing  sharing  of  PL/I-86  runtime  routines  or 
nay  be  linked  individually.  Separate  processes  reouire  more 
memory  due  to  replication  of  PL/I-86  support  routines, 
however,  great  care  is  required  with  shared  routines  as 
PL/I-B6  runtime  routines  are  not  reentrant.  Further,  CP/M- 
96  subroutines  are  neither  reentrant  nor  repl ica tea bl e .  I/C 
functions,  therefore,  must  be  viewed  as  shared  resources  and 
access  to  them  strictly  controlled. 
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IV.  MCORTEX  LOADER 
A.  SORT. OPS  /  KCRE.TRC 

During  development  the  ^CORTEX  executive  was  assig’-ei  to 
the  file  KOR?  and  was  accessible  through  the  INTELLEC  ^DS 
system.  This  file  ccntaired  all  the  multi-processor 
operating  system  functions,  the  initial  GLOEAL  memory,  the 
supervisor,  the  interrupt  vector,  and  various  low  level 
functions  not  accessible  to  the  user.  To  execute  MCORTEX  it 
was  necessary  to  download  KOBE  and  user  processes  to  the 
target  system,  disconnect  the  transfer  catle,  connect  the 
target  system  terminals,  and  pass  control  to  KOBE  on  each 
processor.  See  [Ref.  2:  Appendix  A,  F]  for  a  complete 
description  of  the  process.  The  KOBE. OPS  and  KOBE. IRC  files 
loaded  by  the  ^CORTEX  and  MXTRACE  loaders  respectively,  are 
derived  from  the  original  KOBE  file  with  changes  as 
discussed  in  Chapter  II.  Additional  changes  were  made  to 
compact  the  KORE.OPS  file,  and  to  relocate  the  ISITAMOD  for 
simpler,  more  CP/M-66  compatible  loading  of  user  processes. 
Appendix  A  details  the  procedure  used  to  produce  KOBE. CPS 
and  KORZ.TRC  from  XORE.  Further  discussion  will  use  the 
terms  FORE  and  ^CORTEX  tc  mean  either  FORE. OPS  or  KORE.TEC 
and  'hCORTPX  or  MXTRACE  respectively.  When  this 
generalization  does  not  hold,  the  differences  will  be  noted. 
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Currently  the  MCORTFX  environment  can  be  established 


under  the  CP/^-86  operating  system.  Control  is  then  passed 
to  MCORTEX  automatically,  and  user  orocesses  are  created  in 
the  user  i ni t ia li za t ion  module.  Control  can  be  passed  back 
to  the  CP/M -8 6  operating  system  if  applicable. 

B.  KCRF  »S  C^D  FILE 

Establishment  of  the  MCORTEX  environment  through 
invocation  of  K03E  as  a  command  file  is  not  feasible  for 
several  reasons.  First,  interpretation  of  CMD  file  headers 
assumes  each  CMD  file  to  be  contiguously  constructed.  KORF 
is  not.  Second,  KORF  memory  reauirements  include  an 
interrupt  vector.  The  CP/M-S5  memory  management  system  does 
not  allow  loading  of  command  files  into  the  interrupt  vector 
space.  Third,  the  data  segment  for  the  initialization 
module  deDerds  upon  the  amount  of  executable  code  generated 
by  all  processes  linked  with  the  module  and  is  not  static. 
The  data  segment  register  initial  value  must  be  passed  to 
KORF  after  processes  are  loaded.  Fourth,  XORE  includes 
■JLOBAL  memory,  which  should  be  loaded  only  once,  while  KORF 
must  be  loaded  into  each  processors  local  memory.  An 
additional  consideration  is  the  simplicity  ar.d  flexibility 
gained  when  KOBE  and  user  processes  are  loaded  via  the  sam° 
mechanism  to  produce  the  MCOETFX  environment. 
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C.  OPERATION  C F  THE  MCCRTEX  LOADER 

MCOHTEX.CMD  is  an  executable  file  under  the  CP/h-96 
operating  system.  Invocation  of  MCCRTEX  without  KCRE.OPS  or. 
the  default  drive  results  in  ar.  error  message  and  return  to 
CP/M-S6.  KXT3ACE  reauires  KORE.TRC.  The  loader  announces 
that  it  is  on  lire,  and  reauests  an  entry  to  indicate 
whether  or  not  GLOBAL  memory  should  be  loaded.  Only  the 
first  processor  activated  should  load  GLOBAL  memory. 
Sutseouent  loads  of  GLOBAL  memory  would  destroy  data  needed 
by  executing  processors.  If  no  initial  load  of  GLOBAL 
memory  is  made  the  re.ults  are  unpredicta ble . 

KORF  is  immediately  loaded  with  or  without  GLOBAL  memory 
as  directed.  The  load  is  accomplished  using  CPA'-SC 
functions,  but  does  not  use  the  C^D  load  utility.  Instead, 
KORF  is  read  in  and  positioned  block  at  a  time  as  reauirei. 
The  interrupt  vector  is  not  maintained  as  a  part  of  the  XOF.E 
files,  but  is  generated  within  the  loader  itself  with  moves 
directly  from  loader  data  memory  to  the  interrupt  vector 
space . 

SORE  load  is  followed  by  a  request  for  a  process  file 
name.  The  loader  expects  at  least  one  file  name  to  be 
entered,  and  results  are  unpredictable  if  one  is  not.  User 
processes  are  loaded  using  the  CF/V-&6  CMD  load  utility,  and 
user  processes  must  be  Ch'D  files.  The  entire  file  name  must 
be  entered  including  the  three  letter  extension.  After 
loading  the  first  and  subsequent  user  files,  the  loader 


reauests  another  file  name.  To  exit  user  process  loading,  a 
return  with  no  preceding  character  should  be  entered.  The 
last  file  entered  must  contain  the  initialization  module,  as 
rhe  data  segment  register  value  of  this  file  is  determined 
and  passed  to  KOF.E. 

Completion  of  user  process  loading  causes  control  to  be 
passed  to  MCCRTEX.  MCCRTEX  initializations  are  performed, 
including  creation  of  the  IDLE  and  I N I T  processes  (also 
MONITOR  with  MXTRACE),  and  the  user  initialization  process 
is  entered.  Operation  after  this  point  is  determined  by  the 
user  processes.  An  ADVANCE  on  the  initialization  event 
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PREEMPT  and,  in  fact,  due  to  multiple  declarations  of  tne 
INIT  process  causes  only  the  first  processor  activated  to 
return  to  CP/m-86  control. 


V.  PL/ 1-96  COMPATIBILITY 


A.  THE  SUPERVISOR 

KCRI  is  written  in  PL/M-86,  and  reauires  calls  ma le  tA 
the  supervisor  to  meet  PL/M-86  parameter  uassins 
corventions.  Further,  the  supervisor  reauires  four 
parameters  with  every  call  regardless  cf  the  function 
invoked.  To  meet  oarameter  passing  reauirements ,  and  to 
hide  details  of  the  supervisor  implementation,  a  translation 
mechanism  between  user  calls  and  the  sunervisor  is  reauirei. 

The  first  parameter  expected  by  the  supervisor  is  a  byte 
value  indicating  the  function  reouired.  Following  the 
function  code  should  be  another  byte,  a  word  and  a  pointer. 
The  formal  parameters  these  actual  parameters  represent  are 
different  for  different  function  calls,  and  in  some  cases 
the  values  passed  are  not  used  at  all.  The  supervisor  uses 
the  function  code  to  determine  which  parameters  are 
applicable,  and  simoly  ignores  the  rest.  It  is  inconvenient 
and  unnecessary  for  the  user  to  provide  unr.eeded  parameters 
or  to  remember  which  function  codes  bel  o  ’'e  to  which 
functions. 

Two  files  (see  Appendix  D)  are  provided  to  mitigate 
differences  between  simple  user  calls  and  supervisor 
reauirements.  The  file  <1  *TEW.SY  .PLI  should  be  %  INCLUDE  'd  in 
all  programs  making  calls  on  MCORTEX  functions.  It  declares 


the  MCORTEX  functions-  as  ENTRY  values  with  attribute  lists 
matching  the  paramet°rs  expected  by  GATEYOD.  Note  tnat 
°ntry  declarations  reserve  memory  space  for  th°  parameters 
specified.  Each  user  process  rust  have  separate  memory  set 
aside  for  these  function  calls  to  avoid  concurrency  emblems 
in  G  ATZiYOP . 

GATEM(~r.0?J  (or  GATETRC .  OBJ  )  should  he  linked  with  all 
user  crocesses.  It  provides  the  object  code  necessary  to 
convert,  user  calls  to  the  format  expected  by  the  supervisor, 
including  addition  of  function  codes,  and  uadling  of  calls 
with  extraneous  parameters.  GATEMOE  uses  no  variable  data 
segment  of  its  own,  and  simuly  rakes  roves  from  user  data 
areas  to  the  user  stack.  This  ensures  that,  so  Ions  as  the 
user  data  areas  involved  are  ur  shared,  GATZMOD  is  reentrant. 

Note  that  all  parameters  ir.  the  GATEWAY  declarations  are- 
EIT^P)  or  ?  I T  ( 1 6 )  .  Pl./V  has  two  unsigned  integer  data 
types,  3YTE  and  WORD,  that  are  used  extensively  in  t'CCRTIX. 
There  are  r.o  correspcr.di ng  data  types  in  PL/I-36,  and  3IT(e) 
and  FIT',16)  are  the  closest  available  substitutes.  In 
t'CCRTEX  processes  it  is  sometimes  convenient  to  add  two 
?IT(16)  numbers.  Unfortunately,  mathematical  computations 
or  BIT(15)  values  are  not  supported  in  PL/I-S6.  This  set  of 
conditions  necessitated  the  development  of  the  function 
»dd2EITl6  included  in  GATEWAY.  As  the  name  implies,  this 
function  adds  two  BIT(IS)  parameters  as  unsigned  integers 
and  returns  the  result  as  a  RIT(lc)  value.  If  a  carry  is 


produced,  it  is  ignored,  and  the  result  returned  will,  of 
course,  be  incorrect. 

2.  PL/I-S6  PARAMETER  PASSING  CONVENTIONS 

Parameters  passed  in  a  PL/I-S6  procedure  call  are 
accessed  via  an  array  of  pointers  [Ref.  If:  p.  18.1].  The 
location  of  the  pointer  array  is  provided  to  called  routines 
through  a  pointer  in  the  BX  register.  Using  register 
indirection  and  indexing,  pointers  to  actual  oararoeters  are 
loaded  into  system  pointer  registers.  Parameter  values  can 
then  be  manipulated  as  reauired.  Figure  4  is  a 
J iagrammatica 1  representation  of  the  parameter  passing 
structure  that  might  be  established  by  PL/I-85  for  a  call  or. 
the  MCCETEX  supervisor. 

All  BI?(16)  values  returned  to  user  programs  by  the 
GATEYCD ,  either  as  a  result  of  a  call  to  ADTPEITIS  or  as  a 
result  of  calls  to  the  MCORTEX  functions  READ  or  TICKET,  are 
returned  ir.  the  5X  register.  This  is  the  convention  followed 
by  3785  based  PL/ I -86. 

C.  ?L/M  REENTRANT  PARAMETER  PASSING 

All  YCCRTEX  PL/IM-86  routines  are  reentrant.  The  A SM8S 
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DDT96  all  are  resident  in  the  SBC  memory  and  in  the  32K 
shared  memory  board. 

D.  Usir.2  DDT86  commands,  reposition  the  parts  of  KORE 
reauired  so  that  the  code  can  be  saved  into  one  file.  Data 
necessary  to  determine  the  initial  locations  of  the  cc  u  e  .  s 
found  in  KCRF.MP2.  The  DDT86  instructions  used  for  the 
current  KORE. OPS  and  KOPE.TFC  files  follows: 

***  KORE. OPS  *** 

MBB0 :0 , IFF  ,490  :0  ***  Move,  starting  at  address  B30:0, 
DFF  bytes  of  code  (main  part  of  KORE)  to  new  start  address 
490:0. 

M439:3, 80, 560:0  ***  Move,  starting  at  address  439:0,  80 
bytes  of  code  (initialization  nodule)  to  new  start  address 
560:0  (following  main  part  as  moved  above). 

MF?94:0,6BF, 568:0  ***  Move,  starting  at  address  F?94:?, 
6BF  bytes  of  code  (GLOBAL  memory)  to  new  start  address  563:0 
(following  initialization  module). 

WKORE. OPS  ,480:0, 153F  ***  write  to  the  default  disk  a 
file  called  KORE.OPS  starting  at  address  480:0  and 
containing  153E  bytes. 

KCRE.TRC  *** 

M439 :? , 25  ,C68  :0  ***  Move,  starting  at  address  439:0,  25 
bytes  of  code  (initialization  module)  to  new  starting 
address  C66:0  (following  main  KORE  code). 

MAC  0  : 0 , 1 4  FF  ,439  :  0  ***  Move,  starting  at  address  4C'7:0, 
1AFF  bytes  of  code  (main  KORE  -  initialization  module)  to 


F.  When  the  Interrupt  light  #2  lights  on  the  front 
panel,  press  space  bar  on  the  console  device. 

I.  Reset  the  hoot  switch  ty  pushing  the  lower  part  of 
the  switch. 

F.  1 3 1 S  —I I  will  announce  itself  and  give  the 
prompt . 

IV.  LOAD  MCORTFX 

A.  At  NFS  console,  type  "S3CS61<CR>" . 

P.  IF  '*CONTDOL*  '  appears,  SBC  was  not  able  to  set  its 
haul  rate.  Press  RFSST  on  MULT I  BUS  frame  and  try  again . 

C.  If  'Bad  FMD5  connection'  appears,  yon  will  not  he 
able  tc  continue.  Check  connectors.  Make  sure  diskette  is 
not  write  protected.  Push  RESPT  at  frame.  Try  again. 

F.  SBC861  will  announce  itself  and  prompt  with 
i.  Type  "L  KORE<cr' " .  Wait  for  At  this  point  the 

XORE  module  has  been  leaded  into  the  SBC  memory,  and  into 
the  shared  memory  board. 

V.  SAVING  EOPF  TO  CP/M-96  FILE 

A.  Leaving  the  SBC861  process  active  on  the  ^DS  system, 
disconnect  the  P.S232  J2  connector  at  the  SEC,  and  connect 
the  terminal  prepared  earlier. 

B.  At  the  newly  connected  terminal  type  'GFFD4  :4<crN  ’ . 
The  CRT  will  not  echo  this  entry.  Respond  to  the  cues  that 
follow  as  reouired  until  CP/M--F6  is  up. 

C.  Now  enter  DDTS6.  At  this  point  KCR5 ,  CP/M-86,  am 


II .  POWER  ON  PROCEDURES 

A.  Turn  the  power-on  key  to  ON  position  at  MULTIBUS 
frame . 

B.  Press  RTSET  near  power-on  key. 

C.  If  needed  apply  power  to  MICROPOLIS  hard  disk. 

D.  Apply  power  to  RFMEX  disk  system.  After  syst“f' 
settles,  put  START/STO?  switch  in  START  position.  Following 
a  lengthy  time-out  period,  the  rFADY  light  on  the  front  of 
the  RFMEX  disk  system  will  illuminate,  and  the  system  is 
ready.  Alternately,  the  RESET  button  on  the  MULTIBUS  can  be 
pressed  three  times,  with  a  small  time-out  for  the  system  to 
settle  each  time.  Following  the  third  button  push,  the 
READY  on  the  front  of  the  REMEX  disk  system  will  illuminate 
as  before. 

E.  Insert  the  boot  disk  into  drive  3. 

E.  Apply  power  to  the  CRT. 

5.  Put  the  Bubble  Device  RUN/HALT  switch  to  RUN. 

E.  Power  up  the  MDS  disk  drive. 

I.  Power  up  the  MDS  terminal. 

J.  Turn  power-on  key  to  CN  at  MDS  CPU. 

III.  BOOT  UP  MDS 

A.  Place  diskette  with  execute  tie  modules  and  SBCS61  in 
drive  ?  . 

B.  Push  upper  part  of  boot  switch  in  (It  will  remain  in 
that  position). 

C.  Press  reset  switch  and  then  release  it. 


APPENDIX  A 


IS IS=I I  TO  CP/M-=6  TRANSFER 
I.  PRE-PCWER-CN  CHECKS 

A.  SBC  configured  for  CP/M-86  cold  boot  is  ir  MULTIBUS 
odd  slot  and  no  other  clock  master  SBC  is  installed. 

B.  Bubble  memory  is  in  MULTIBUS. 

C.  RFMEX  controller  is  m  MULTIBUS,  and  properly 
connected  to  P.EMFX  drive. 

D.  If  ^ICROPOLIS  hard  disk  is  to  te  used,  ensure  that 
it  is  connected  to  clock  raster  SBC. 

E.  Ensure  32K  shared  memory  module  is  installed. 

F.  Connect  FS232  transfer  cable  between  J2  or.  SBC,  arc 
24C*e  baud  CP.T  port  of  the  MDS  system.  If  this  cable  has  a 
'null  modem'  switch  on  it,  set  it  to  'null  modem’.  This 
transposes  wires  2  and  3.  The  switch  may  alternately  be 
marked  'computer  to  computer'  and  'computer  to  terminal'. 
Set  to  'computer  to  computer". 

G.  Connect  ar.y  CRT  to  the  960C  fcaud  TTY  port  of  the  MDS 
system.  Ensure  CRT  is  set  tc  96CC  baud. 

H.  A  CRT  will  be  connected  to  the  SBC  after  the  loading 
is  completed,  ar.d  should  have  an  RS232  cable  hooked  to  the 
serial  port.  The  CRT  connection  should  lead  tc  a  flat  25 
wire  ribbon  and  J2  connector  so  it  car  eventually  be  hooked 
to  the  SBC's  serial  port. 


outside  their  assigned  data  segments.  Finally,  AFGIS  system 
processes  and  real  time  input  simulation  processes  should  be 
adapted  to  the  MCORTEX  environment,  and  performance 


measurements  made. 


As  noted  earlier,  neither  CP/M-86  ncr  PL/I-36  ran  time 
routines  are  reentrant.  Sharing  ary  section  of  code  from 
either  system  in  a  concurrent  environment  requires  care  and 
proper  control  of  access  to  shared  code.  In  many  instarces 
this  can  be  accomplished  through  application  of  MCO"TET 
functions.  When  proper  sequencing  through  PL/I-86  runtime 
routines  cannot  be  guaranteed,  processes  using  shared 
routines  must  be  separated,  and  multiple  links  performed. 
This  produces  a  copy  of  the  runtime  routines  for  each  linked 
group  of  modules.  Since  processes  not  linked  into  the  same 
C1D  file  do  not  share  common  data  structures,  communication 
between  the  modules  becomes  more  complex.  PI/I -06  uses 
sixteen  bit  pointers,  and  has  no  built  ir.  mechanism  to 
transfer  data  outside  the  data  segment  assigned  to  the 
linked  module.  This  deficiency  also  adversely  affects  the 
communication  through  common  memory  of  processes  on  separate 
SBC's, 

Future  research  with  MCORTFX  should  investigate  the 
problems  discussed  above.  Testing  of  the  system  using  more 
than  two  SEC's  should  be  conducted.  Investigation  of  the 
relationships  between  KCGR73X  processes  sharing  sections  of 
PL/I-S5  and  CP/r^-86  code  must  be  conducted,  ard  the  best 
means  of  controlling  access  to  shared  code  determined.  If 
possible,  this  should  be  accomplished  in  a  high  priority 
system  process  that  i‘s  transparent  to  users.  Some  convenient 
means  must  be  provided  to  give  processes  access  to  memory 


VI.  CONCLUSIONS 


The  principal  goals  of  this  thesis  were  met.  MC0P.TEX 
has  been  integrated  into  a  selected  environment  to  provide 
multi-processing  and  multi-processor  capabi li ti es  .  Assets 
available  under  the  CP/^-Sf  operating  system  have  been  made 
available  to  MCORTEX  processes.  Also,  development  c' 
MCORTEX  processes  in  the  high-level  language  P1/I-8G  has 
been  provided  for  through  reentrant  gateway  transformations 
between  PL/I-86  calling  structures  and  the  structures 
expected  by  the  MCOF.TEX  supervisor.  Programs  have  been 
written  to  demonstrate  that  each  of  the  MCORTEX  function-- 
can  be  used  from  within  a  process  written  in  PL/I-86.  Two 
versions  of  the  operating  system  kernel  have  been  produced. 
One  version,  found  in  the  KORE.TRC  file,  retairs  all 
diagnostic  cues  of  the  development  version,  primitive  I/C 
functions,  and  the  MONITOR.  The  second  version,  fourd  ir 
the  KORE.CPS  file,  has  these  items  removed. 

No  testing  of  the  system,  except  to  monitor  the  prefer 
operation  of  the  demonstration  programs,  has  been 
accomplished.  The  demonstration  programs  have  been  run 
successfully  using  two  slave  SBC's  and  using  the  master  SBC 
and  one  slave  SFC.  The  loader  program  sometimes  will  not 
accept  a  file  name  without  the  drive  prefix.  No  pattern  to 
this  behavior  has  been  observed. 


4? 


The  file  also  contains  Tans  of  the  individual 
modules  linked  into  the  CdD  file.  These  Taos  provide  data 
about  locations  of  code  and  data  segments  within  the  large1' 
code  and  data  segments  summarized  in  the  segments  section. 
The  beginning  address  of  each  module  is  given.  This  offset, 
represents  the  IP  value  for  that  particular  module. 

With  all  oarameter  values  determined,  the  initialization 
orocess  must  te  recompiled,  and  all  processes  relinked.  The 
resulting  CMD  file  can  be  executed  in  the  MCC'T?'’ 


en vi ronnent 


ran  be  de termir.ed  by  performing  ar.  executable  lead  of  the 
orocess  C^D  file  unde”  EETB6.  Values  displayed  by  EETr€ 
include  the  CS  ,  and  ES  register  values.  As  mr.-ntienpo 
earlier,  it  is  reouired  that  the  DS,  SS ,  ard  ZS  register 
values  be  eaual  for  proper  operation  of  some  FL/I-B5  runtime 
routines.  Except  under  soecial  carefully  considered 
ci rcums t an ces  ,  programmers  should  ensure  that  this  is  the 
case.  The  remairing  two  parameters  a^e  poirter  values 
obtainable  from  the  link  M A ?  file. 

The  first  section  of  the  yAP  file  gives  a  summary  of  all 
cede  and  data  segments  included  in  the  associated  Ct'E  file. 
Several  data  segments  a  re  listed  in  order  of  their 
occurrence  in  memory,  from  lowest  offset  to  highest  iff  set. 
The  range  of  the  last  entry  gives  the  last  address  offset 
occupied  by  any  data  segment.  Higher  address  offsets  still 
within  the  memory  suace  of  this  Ch'D  file  are  assigned  to 
stack  and  free  space  structures  by  PL/I-96,  with  the  system 
stack  orecedirg  free  space.  The  3^  value  reouired  by  the 
''PEATS  PP.OC  function  can  be  obtained  ty  adding  the  *i?e  of 
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TABLF  2: 


M 


Mao  for  file:  D1TBC  .CMC 


Seprents 


Lere  th 

Start  Stop 

A 1  isr. 

Corb 

Nan? 

2CE3 

(0000 

0005-2CE7) 

BYTE 

PUB 

COTE 

05C4 

(  0000 

0100-05C3 ) 

HO?? 

PUB 

DATA 

0021 

'0000 

06C4-06E4 ) 

WORD 

COM 

7CCNSP 

0013 

(0000 

06F6-06F3 ) 

WORD 

COM 

7FPBSTK 

002E 

(0000 

06FA-0727) 
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COM 

?FyE 

0002 

■’0000 

0728-0729) 

WORD 

COM 

7CNCOL 

0009 

(0000 
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7FILAT 

0008 

•  0000 

073 4-0 73 E  ) 
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COM 
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001B 

(  0000 

073C-7756) 
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COM 

7EBUFF 

0003 

(0000 

0756-075*  ) 

WORD 

COM 

7CNC0D 

0025 

( 0000 

375C-0780) 

WORD 

COM 

SYS  I  n| 

0028 

(  0000 

0762-07 A9) 

WORD 

COM 

SYS  PR  I  FT 

"roups 


Sesrents 


CGSOUP 

dgroup 


COPE 
D  A  T  A 
7CNCOL 
70NC0D 


rap  for  to dale:  I  NIT 

001E  (0000:0005-00 22) 

0021  ( 0000:0100-0120) 

rap  for  rodule:  MCDFMO 

0072  (0000:0023-0094) 

0039  ' 0000  :0122-015A) 

Tap  for  rodule:  LOG_ON 

0127  ( 000 0:0095-0 IBB ) 

00C0  ( 0P0e :015C-021B) 


7CONS? 

7FILAT 

SYSIN 


CODE 

DATA 


CODE 

DATA 


CODE 

DATA 


7FPBSTK 
7FMTS 
SYS  PH  I  NT 


nap  for  rodule:  GATFM/T 

00B0  ' 0000 :01?C-028B )  CODE 

0004  ( 000  0 : 021C-C2 IF )  DATA 


?F?B 
?  F  E  J 


counts  and  sequencers,  as  veil  as  processes.  After  all 
initializations  are  performed,  an  AW  A  IT  (  'FE  'E4  ,  '?2?,1 ' -4 ) 
should  be  executed.  This  puts  all  initialization  processes 
or.  a  common  reserved  event  count  thread.  An  ADVANCE  \  'FE  'E4  )■ 
by  any  process  will  return  all  processors  tc  CP/M-36  control 
^assuming  CP/M-86  is  resident  locally). 

MCORTEX  processes  are  written  as  parameterless  PL/I-EF 
orocedures.  Execution  of  CREATE  PROC  functions  in  the 
initialization  module  establishes  a  virtual  processor  for 
each  process,  and  sets  all  process  states  to  ready.  The 
AWAIT  call  at  the  end  of  initializations  forces  a  scheduling 
to  take  place.  The  highest  oriority  virtual  processor  will 
te  eranted  access  to  the  real  Drocessor.  Further  scheduling 
is  controlled  by  user  processes  using  ^CORTEX  furcticr.s. 

Parameters  required  by  the  CREATE  PROC  function  include 
values  unknown  to  the  programmer  until  after  all  nrccesses 
have  beer,  compiled  and  linked.  This  requires  that  dummy 
values  be  orovided  for  the  first  compilation  and  linking. 
Links  should  re  performed  with  t n°  h!A?  command  option 
selected,  as  this  nrovides  information  relevant  to  user 
orocess  definition.  A  partial  MAP  print  out  for  the  11 
demonstration  orocess  is  shown  ir.  Table  2. 

CREATE  PROC  has  eight  parameters.  The  fir^t  two  are 
process  identification  and  ^r^cess  priority.  These  are 
arbitrary  RIT(P)  values  assigned  by  the  programmer.  Pour 
other  parameters,  the  CS,  DS,  SS,  and  ES  register  values. 


value,  and  seme  runtime  routines  expect  this  relationship  to 
ce  maintained.  To  overcome  the  consequences  of  these 
opposing  positions,  the  ga t e  modules  push  the  ES  register 
onto  the  stack  on  entry,  ana  pop  it  before  return  to  the 
calling  routine.  From  the  standpoint  of  user  processes,  th~ 
FS  register  value  is  unchanged  during  MCORTEX  calls. 

D .  GENERATING  MCORTEX  PROCESSES  USING  PL/I-P6 

Procedures  written  in  PL /I -86  become  MCORTEX  processes 
via  execution  of  C?.E4.?E  PP.OC  functions.  MCORTEX  processes, 
though  written,  compiled,  and  linked  as  PL/I-S6  procedures, 
are  distinct  processes.  Each  reauires  the  state  of  the 
orccessor  to  be  orepared  by  the  MCORTEX  executive  prior  to 
every  entry  into  the  process.  This  is  accomplished 
transparently  when  making  MCORTEX  function  -alls. 
Procedures  in  a  MCCRTEX  process  car.  be  accessed  from  within 
the  process  normally,  however,  a  MCORTEX  process  rust  be 
entered  through  a  MCORTEX  function  call,  and  n.pver  through  a 
PL/I-66  procedure  call.  Also  MCORTEX  orocesses  can  oe  linked 
into  a  single  CMD  module  or  car.  be  developed  as  separate  CMR 
modules.  In  the  first  case  orocesses  may  share  common  DI/I- 
B6  runtime  routines  as  well  as  CP/M-36  utilities.  In  the 
second  case  PL/I-66  runtime  routines  are  not  shared,  tut 
CP/M-86  utilities,  if  used,  are  still  shared. 

MCORTEX  currently  expects  an  initialization  module  to  be 
located  starting  at  04390H.  This  module  is  the  first,  user 
process  executed,  and  can  be  used  to  create  user  event 
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PL/M-F6  reentrant  processes  expect  parameters  to  be 
passed  on  the  stack  in  the  ordpr  they  appear  in  the 
procedure  declaration.  Fyte  values  reouire  two  bytes  on  the 
stack  ev»n  though  only  one  byte  contains  usable  information. 
Parameters  are  followed  immediately  on  the  stack  by  the  call 
venerated  return  address.  The  called  process  stores  the 
callers  PS  and  ??  registers  on  the  stack,  and  establishes 
its  own  PS  and  PP  values.  Access  to  parameters  is  via  an 
irdex  refer°nced  to  the  called  process  B?  value.  Figure  5 
is  a  diagrammatical  representation  of  how  a  stack  is 
structured  following  a  call  to  GATE$KEE?EF. 

GATENOD  and  GATETRC  both  act  as  translators  of  user 
calls  into  formats  re  a  uired  by  the  MCOF.TEX  and  PXTF.  ACF. 
supervisors  respectively.  The  only  difference  in  the  two 
gate  modules  is  the  address  of  GATEKEEPER  ir.  their 
associated  KOREs.  Using  the  FX  register  link  to  retrieve 
data,  they  build  the  stack  structure  expected  by  the 
supervisor  module,  supplying  function  codes  and  padlir?  v r. p r. 
reouired.  They  then  make  a  call  on  GATFSXEZ?".-. .  If  the 
call  is  to  BEAD  or  TICK7!',  space  is  reserved  cr  the  sta^k 
for  the  returned  value.  This  valua  is  PCP'ed  into  the  FX 
register  before  exiting  to  the  calling  process. 

The  gate  modules  provide  one  additional  service.  KOBE 
functions  do  not  guarantee  the  integrity  of  the  E3  register. 
PL/I-96  in  OPTIONS  (PAIN)  initializations,  however, 
establishes  the  IS,  SS,  and  DS  registers  to  be  of  eoual 


new  starting  address  439:7. 

ME794:  0 , 6BF ,  439 :  IE  07  ***  Move,  starting  at  address 
E?94:0,  6BF  bytes  of  code  (GLOBAL  memory)  to  new  starting 
address  439:1B00  (following  initialiaztion  "nodule). 

WKCRE.TRC  ,439:0, 21C0  ***  Write  to  the  default  disk  a 
file  called  KORE.TRC  starting  at  address  439:0  ani 
containing  21C0  bytes. 

NOTE:  The  main  XORE  module,  the  initialization  nodule, 
and  GLOBAL  memory  are  located  to  separate  parts  of  the  SBC 
by  the  MCOP.TEX  loader.  The  system  used  requires  that  these 


modules  be  saved  into  the  file  in  128  byte  blocks.  Further, 
any  change  in  the  number  of  128  byte  blocks  occupied  by  each 
must  be  reflected  in  the  MCORTEX  loader  code. 


APPENDIX  B 


MCORTEX  UNTEP  DDTS6 

When  troubleshooting  MC0RT2X  processes  using  DDT86,  it 
is  important  to  realize  that  DDT66  break  points  are 
implemented  as  8086  commands  written  at  the  locations  ir. 
memory  selected  as  break  points.  If  'DDT86  MCCP.TEX  ’  is 
executed,  the  MCOPTEX  system  will  be  loaded  under  th® 
control  of  DDT86.  If  an  attempt  is  made  to  execute  the 
loader  code  to  a  break  point  inside  a  user  module  which  is 
still  to  be  loaded,  DDT96  installs  the  break  point  commanl 
as  directed,  but  this  command  will  be  overwritten  when  the 
user  code  is  loaded.  The  code  will  execute  through  the 
intended  break  point,  and  the  desired  result  will  not  be 
achieved . 

To  enable  break  points  within  user  processes,  execut° 
'DDT86  MCORTEX  '  as  before.  Now  set  a  break  point  inside  the 
^CORTEX  loader  code,  but  after  KORF,  and  the  user  processes 
have  beer  loaded.  The  loader  will  now  input  KORE  and  user 
modules  as  directed,  and  EDT96  will  break  inside  the  loader. 
At  this  point  further  break  points  within  KORE  and  user  code 
car  he  successfully  set,  and  will  not  be  overwritten. 

Tryine  to  use  DDT86  on  PL/I-86  code  car.  be  very 
confusing  as  the  8086  code  produced  is  not  familiar.  Use 
the  MAP  function  of  the  LINK 86  linker  to  give  yourself 


APPENDIX  C 
^COBTEX  LOADEF 

This  file  when  assembled  produces  the  ^ccBTEX  loader. 
The  loader  when  invoked  from  CP/F-S6,  gives  an  indication 
that  it  is  on  line,  and  then  asks  if  GLOBAL  memory  is  tc.  le 
loaded.  The  first  CPU  entering  the  KCOPTEX  environment 
should  load  GLOBAL  memory,  all  others  should  not.  The  last 
Drocess  loaded  on  each  SBC  must  contain  the  initialization 
routine  containing  all  create  process  functions.  This  file 
contains  code  that  is  conditionally  assembled  to  create 
'hXTPACE.  The  value  of  KCOitTEX  in  the  code  controls  which 
module  is  nroducei,  and  the  name  of  the  file  produced  must 
he  changed  oy  the  user. 


*V  i*g  Vf  (V  »'*  *•*  •>*'  «'•  »•»  »•'  «•<  «v  »v  •■✓  4>  «i/  ju  ,*»  *’>  «v  *'»  •><  *>«  »'»  •'< *'»  »>>  J»  »*«  »'»  vV  »■/  y»  %•«  «>•  »•»  >i<  *i<  Of  **.  «■•  i 

v  v  V  *i'  v  v  *,>  v  I  *»•  V  *  ■  'i*  'r  v  »|»  *,»  »,«  »,4  #gi  #,*  *,*  #p  *,»  ^  «,«  •,*  •!«  •,»  #(•  v  v  *r  «i»  ». *  *i*  <|«  »(»  *,»  »(»  »i*  i 

*  MCOPTFX  /  MX TRACE  File  TEX/TEC. A8c  7. owe  1, 


;;********#/ 
3  Feb  84  */ 


*  This  program  loads  the  MCCRTEX  operating  syst 

*  dish  into  the  current  C?/M  environment.  The 

*  memory  space  is  reserved  using  CP/M  memory  ma 

*  functions.  Since  INITIALPROC  must  be  over  wr 

*  the  user  INITI&LPKOC,  the  memory  it  occupies 

*  reserved.  The  portions  loaded  into  the  inter 

*  area  and  into  shared  memory  (ie.  GL03ALM0DULE 

*  areas  not  managed  by  CP/M  and  are  thus  protec 

*  user  overwrite  when  using  PLI  CMD  files.  Con 

*  assemblies  allow  assembly  of  either  MCCRTF.X  o 

*  depending  on  the  value  assigned  to  MCCRTEX  at 

*  beginning  of  the  code.  Nine  such  conditional 

*  assembly  statements  are  included. 

s{:  *  ijs  Jjt  #  *J-  #  ❖  #  #  «  #  #  # # <s  ❖  #  *  fc  *  #  *  #  #  *  #  #  #  *  #  *  *  #  «  if  if  *  #  *  s)c  if  #  >;< 


en  from  */ 
system  */ 
nagenent  */ 
it  ten  by  */ 
is  not  */ 
rupt  #/ 

)  are  in  #/ 
ted  from  */ 
ditional  */ 
r  MX TRACE*/ 
the  */ 

■--/ 
*/ 

if  sc  tfsfc  jfc##*  / 


DSEG 

ORG  0000 H 

;###  MCORTEX  /  MXTP.ACF  SELECTION  fc*##**#*#*###***.'**^**####/ 


MCORTEX 


SOU  1  J***  SET  TO  ZERO  FOR 

;*##  MXTRACE,  TO  ONE  FOR 
;***  MCORTEX 


ADERESS  CONSTANTS 


FCE 

FCB_NAME 

FCE~EXTENT 

FCB~CR 

I  NT  ADD  CS 

intkpt  Offset 

IF  MCORTEX 
INTRPT  CS 
ELSE 

INTRPT  CS 
ENDIF 


EOU  005CH 
EOU  005DH 
EOU  0068H 
EOU  007CH 

EOU  001 1H 
EOU  0033H 

EOU  0C6BH 

EOU  0C31H 


;***  FILE  CONTROL 
?***  BLOCK 


?***  IMTEERUPT  CODE 
? ***  SEGMENT  AND 

;***  VECTOR 

;*###  i  ##*#  < - 


;###  pups  NUMBER  CONSTANTS  / 


EIGHTF_K 
IF  MCORTEX 
NUM  KOPE_BLOCXS 
ELSE 

NUM  KORE  BLOCKS 
ENDTE 

ASCII  0 
ASCI I~9 


EOU  0080H 


EOU  001CH 
EOU  0035H 


EOU  '0' 
EOU  '9' 


;####  2  < - 


ASCII  A 

ASCI I_Z 

COLON 

SPACE 

PI? 1 00 

CR 

LF 


ECU  'A' 
ECU  'Z' 
ECU  ':' 
EOU  '  ' 
ECU 

ECU  000DH 
EOU  000AH 


j«jccj!c  CONTROL  TRANSFER  CONSTANTS  ^ ^  ’f* ^ ^ '-s ^ ^  ^ ^ / 


IF  MCORTEX 
FORE  SP 

kore"~ss  val 
kc?.e“ds_val 

ELSE 
FOFE_SP 
FORE  SS_VAL 
KORE~DS_VAL 
ENOIF 


EOU  008 PE 
EOU  0C76H 
FCU  0C69H 

EOU  00FFE 
EOU  0C30H 
ECU  0C00H 


,*£##*  3  a#**  <• 
;*#*»  4  <- 
;##»#  5  ttxx#  <- 


;##*  CP/M  FUNCTION  CONSTANTS  s*#****#**##*##*****#****####/ 


CP*  BOOS  CALL 
SYSTEM_EFSFT 
CCNSCLF_OUT?UT 
READ 

PRINT  STRING 
0PEN_FIL5 
PEAD  SEQUENTIAL 
SET  DMA  OFFSET 
SET~DMA_BAS  E 
ALLOC  MEM  A3S 
FREE  ALL  MF* 
PROGRAM  LOAD 
NOT  FOUND 
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0000K 

0002R 

000  AH 

0009H 

000FH 

0014H 

001  AH 

0033H 

0P38H 

003  AH 

0033H 

00FFH 


;  MESS  AGES  ,{saet: ***#*#  ^fc#:*###**'##**#***#^*#***##**#***^##*  y 


IN  STRING 


D3  15 
RB  16 


NO_FI LE_MSG  DP  'KORE  NOT  ON  DEFAULT  DRIVES' 

NC~IN  FILE  MSG  EB  'INPUT  FILS  NOT  CN  DESIGNATED  DRIVES' 
NO_MEMORY  MSG  DB  'UNABLE  TO  ALLOC AT?  MEMORY  SP»CF  VO?' 

DB  '  MCORTFXS ' 

FI LE_FORM_EER_MSG  DB  'INCOPFECT  FILE  FORMAT  -  TRY  AG»IN$' 

START  MSG  DB  'MCORTEX  SYSTEM  LOADER  ***  ON  LINES' 

?  NAME  MSG  D*  CR , LF , LF ENTER  PROCESSOR  FILE  NAME:  '  ,CR,LF 


CL0BAL_0_MSG  DF  CR.LF.LF,  LOAD  GLOBAL  MEMORY?  CP. ,  LF 
GM2_MSG  0*  '"Y"  TO  LC»D,  "RETURN "  TO  SKIP',CE,LE, 

vqoRTEX  RELOCATION  VAR  I A  PIES  / 

!***  CAUTION  ***  CAUTION  ***  CAUTION  ***  CAUTION  *********/ 
;***  The  following  five  lines  of  code  should  net  he  ***/ 
;*#*  separated  as  this  program  assumes  they  will  he  ***/ 
found  in  the  order  shown.  The  code  is  used  for  ***/ 
;**#  memory  allocation  and  as  a  nointer  to  KOBE.  ***/ 

;***  CAUTION  ***  CAUTION  ***  CAUTION  ***  CAUTION  **♦**#**#/ 


YORE  START 
IF  MCCRTEX 
K0RE1_B  4$E 
ELSE 

XCRE1  BASE 
FNDI F_ 

KCRF 

IF  M COR TEX 
E0F.E1  LENGTH 
ELSE 

K0RE1  LENGTH 
ENDIF 

K0RE1_W_EXT 

IF  MCCRTEX 
KOBE  NAME 
ELSE" 

X ORE  NAME 
ENElf 

K0?.E2_B  ASF 

INTERRUPT_VECTCR 
I VT_VECTOF_ ADD 

I  NIT  OFFSET 
I M IT  RASE 
IF  MCORTFX 
I N IT  DS_SEG 
ELSE- 

INIT_DS_SFG 

ENDIF 

IN  IT  DS _OFFSET 
I N IT~I ?  OFFSET 


DW  0030H 
DW  03  BOH 


DW  0AC0H 


;***  CAUTION 
;***  CAUTION 


;##*#  g  riaittt  <- 


ECU  DWORD  PTR  KOPE  START  ;***  CAUTION 


DW  00E0H 


DW  01O0H 


; ***  caution 


;##£*  ?  enttp  <■ 


DB  0 


DB  'KORE 
DP  'KOBE 


;**v  CAUTION 


OPS  ' 


TEC '  8  ***  <  — 


DW  0E794E  ;***  GLOBAL  MEMORY 

DW  INTRPT  OFFSET, INTSPT  CS 
DW  I VT_ADD_CS 

DW  0000E  ;***  INITIALIZATION 

DW  0439H  ?***  ROUTINE  PARAMETERS 

DW  0C89H  ;***  FOR  DYNAMIC  ASSIGNMENT 


DW  0C56H 


;###*  g  attftft  <- 


DW  0068H  i***  WHEN  USER  INITIALIZATION 

DW  0074H  ;***  15  INDICATED 


?***  CCNT-OL  TRANSFER  VARIABLES  to*********-****************/ 


KO?E_SS 
KORE  DS 


DW  EORE_SS  VAL 
DW  KORE  DS~V AL 


x — i.-  -r -v/v 


ST^HT  CODF  SSG^FMT 


»jc  >!:  5)e  */.  s;:  j|:  sjt  » >Jc :;:  #  ^  :;c  / 


MCORTEX_LO  ADR?.  CSEG 

CALL  CLR_S  CRESN 
CALL  MCORTEX  LOAD 
CALL  CLR  SCREEN 


;***  SCREEN  CONTROL  S.  LOG  ON 

;*#*  MESSAGES 

;*** 


CLD 

PUSH  AX 


;*** **•*  INITIALIZATION 


;**#  GET  LCA.D  GLOBAL  INDICATOR  ************* 


:[i  V  *i  ■  'fi  f 


CALL  IN  GLOBAL 


;***  ASK  IF  GLOBAL  TO  BE  LOADED 


“OV  BX, OFFSET  IN  STRING 
MOV  CL, READ 
I  NT  C?M  BDOS  CALL 


;***  GET  BUFFER  LOCATION 
;***  CP/M  PARAMETER 
;***  jpi  INDICATE:. 


5***  GENEFATE  KCRE  FILE 


CONTROL  BLOC K  * ** * * ** * ***  >:«#*******/ 


GEN_XORE_FCB : 

MOV  3X.10 

MOV  SI .OFFSET  FOES  MAKE 
MOV  DI . FCX  _N  AME 
MOV  KORE: 

MOV  *L,  [SI  +  BX] 

MOV  [DI+BXl.AL 
PFC  3X 

JGE  MOV  KOBE 


?***  MOVE  11  CHARACTERS 
;#**  POINT  TO  KCRE  NAME 
;  ***  POINT  TO  ECB  NAME 

.**#*  GET  CHARACTER 
;***  STOPE  CHAR  *CTE? 


;***  OPEN  K ORE  .OPS  PILE  CN  DEFAULT  DISK  ************** ****•/ 


OPEN  KCRE: 

vOV  CL,  OPEN  FILE 

;  *** 

CP/M  P 4 R AME TER 

MOV  DX.FC3 

;  *#* 

C?/M  PARAMET FR 

INT  CPM  BDC3  CALL 

•  s':  s^ 

OPEN  PILE 

CMP  AL  ,  NOT  FOUND 

;  *** 

FILE  FOUND? 

JNE  PROCESS  KCRE 

•  *** 

FILE  FCUNE !  CONTINUE 

JMP  NO  FILE 

;  *** 

GO  INDICATE  FRPOr 

PROCESS  KCRE: 

MC7  BI  ,0 

MOV  FCB  CR  [DI]  ,DI 

;  *** 

STAr.T  WITH  REC  ZERO 

;***  RESERVF  MEMORY  ************ 


$  #  #  *  # s'r  s':  sjs  jjc  *  i  g  r|;  jJ.  ?;•.  >;■.  s|<  f 


MOV  CL, FREE  ALL_MEM 
INT  CPM  BDOS_CALL 
MOV  CL, ALLOC _MFM_ABS 
MOV  DX, OFFSET  KOP.Fl_BASE 
INT  C?M_BDOS _C  !LL 
CM?  AL,  NOT  FOUND 
JNE  LOAD  MCORTEX 


***  CP/M  PARAMETER 
***  FREE  .ALL  MEMORY 
***  CP/M  PARAMETER 
***  CP/M  PARAMETER 

**•*  ALLOCATE  MEMORY 
***  MEMORY  AVAILABLE? 

***  MEMORY  AVAILABLE!  CONTINUE 
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JMP  NO  MFMORY  ALLOC  ;  ***  00  INDICATE  FF  =  0?. 


;***  LOAD  MCORTFX  CODE  AT  3ACPK 

LOAD  MCOPTFX : 

M0V  DI ,? 

MOV  3?,NUM_KCRE  BLOCKS 
M0  VE_KC?.F_LOO  ?:  ~ 

MOV  DX.FC? 

MOV  CL, READ  SEQUENTIAL 
INT  C?M_BD03  _  C  ALL 
MOV  ES , K0RE1 ~BAS  S 
MOV  CX, EIGHTH  Y 
MOV  SI.CX 
PE?  MOVSB 
DEC  B? 


***  SET  DEST.  OFFSET 
***  SET  BLOCK  COUNTER 

CP/M  PAP.AMETEP 

CP/m  PARAMETER 
#**  READ  IN  128  BYTFS 
***  SET  DESTINATION  S FOMENT 
***  SET  BYTE  COUNT 
***  SET  SOURCE  OFFSET 
***  MOVE  128  BYTES 
***  DEC  EL0CK5  TO  MOVE 
***  IE  NOT  DONE,  DO  A  SAIN 


JNZ  MC  VF_K ORE _ LOOP 
;x<x«x<  LOAD  INITIALIZATION  MODULE  *##***#####**v##*#*v#***#* / 


MOV  DI , I N IT^OFFS ET 
MOV  DX ,FCE 

M0V  CL, READ  SEQUENTIAL 
INT  CPM  BDCS_CALL 
MOV  ES.lNIT  EASE 
WCV  CX , EIGETH_K 
MOV  SI.CX 
REP  MOVSB 


;*#*  SET  DEST.  OFFSET 
?#**  CP/M  PAr AMETIP 
;***  CP/M  PARAMETER 
,'***  READ  IN  128  BYTES 
;***  SET  DESTINATION  SEGMENT 
;***  SET  BYTE  COUNT 
:***  SET  50UBCE  OFFSET 
;***  MOVE  128  BYTFS 


;x«xix«  LOAD  GLOBAL  MEMORY  X'X'X'**#*#*###***###*#****'-#**”:**^***/ 


CM?  IN  STRING +1.0E 
JZ  INST ALL_I NTFRRUPT 
vqv  DI  0 

MOVE  GLOBAL  LOOP: 

MOV  DX , ?C? 

MOV  CL , r E ’ D_S  ECUENT I AL 
INT  C?m  BDOS  CALL 
TEST  AL ,  AL 

JNZ  INSTALL  INTERRUPT 
V0V  ES ,K0RE5_BASF 
MOV  CX, EIGHTH  K 
MOV  SI.CX 
REP  MOVSB 

JMP  MOVE  GLOBAL  LOOP 


;***  SHOULD  GLOBAL  BE  LOADED? 
;***  IF  NOT,  SKIP  LOAD 
?***  SET  TEST.  OFFSET 

t***  CP/M  PARAMETER 
♦***  CP/M  PARAMETER 
;*#*  p PAD  128  BYTFS 
i*#*  NO  MORE  DATA? 

;***  iy  mo  MOFE,  GC  ON 

;***  SET  DESTINATION  SEGMENT 

;***  SET  PYTE  COUNT 

;***  SET  SF.C.  OFFSET 

;***  MOVE  128  BYTES 

?***  IF  NOT  DONE,  DO  AGAIN 


INITIALIZE  INTERRUPT  VECTO?  xt***#*#*#*##******#*****#/ 


I NSTALL_INTE?  RUPT : 

MOV  ES , I  NT  VECTOR  ADD  J ***  SET  DESTINATION  SEGMENT 

MOV  DI,?  ~  ;***  SET  DEST.  OFFSET 

M0V  SI, OFFSET  INTERRUPT  VECTOR  ;***  SRC.  OFFSET 


,v, 

V". 
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v0V  CX ,  2 

F.EP  MO  VS  AX,  AX 


;***  2  WORDS  TO  MOVE 
:***  MOVE  TWO  WORDS 


;***  READ  IN  A  FILE  NAME 


v*  3{n  #,C  ),*  5|*  S|£  J(*  )[«  5f»  3j»  Jj»  3,£  J|J  )(C  5(»  *,*  /p 


i  i  i,; 


READ  A_NAME : 
CALL~PROCFSSOR.  _N  AME 
**CV  EX, OFFSET  I N_STRING 
MOV  CL ,  F.E 4 D 
INT  CPM  ED OS  CALL 


***  MSG  TO  INPUT  A  FILE  N  A  v  E 
***  D X  <—  BUFFER  LOCATION 
***  CPM  P 4  ?  AMETE; 

***  GET  A  FILE  NAM? 


;  *?■#*■-  gp'j'  p^g  DP.  I V  E  DESIGN  4TIO.N  fc##**###**#^#*#*###*#**##*'#  / 


CMP  IN  STRINS+1,0 
JF  EXIT  ROUTINE  5 
POP  AX 


;***  ARE  THERE  MORS  INPUTS? 

;***  I?  NO,  GET  GLOEA.L  LOAD  INDICATE?. 
?***  LAST  LCADKD  FILE  WAS  NOT  INITIALIZE 


MOV  DI , O 


?***  SFT  DESTINATION  INDEX  TO  ZERO 


CMP  IN  STRIN3+3,  COLON  ?***  IS  DRIVE  DESIGNATED? 


JE  S ET_DRI VE 
MOV  ECB  [Dll  ,D I 
MOV  51,2 
JS  FORM  ECB 


;#**  IE  YES ,  PUT  DRIVE  IN  FCB 

?***  SET  DEFAULT  DRIVE 

?***  3RD  POSIT  IN  STRING,  IS  1ST  LETTER 


SET  DRIVE: 


MOV 

AL.IN  STRING -2 

;  *** 

GET  DRIVE  LETTER 

AND 

AL , 5 EH 

j 

CONVERT  TO  UPPER  CAS 

* 

SUP 

AL.40H 

;  **  # 

CONVERT  TC  A  31  NARY 

NUMBER 

MOV 

ECB [DI]  f  A  L 

; 

SET  DRIVE 

AND 

AL , 0F0H 

; 

LIMIT  LINE  DRIVE  TO 

A  THROUGH  0 

TEST 

AL.AL 

JNZ 

INPUT  EREO-  3 

MOV 

SI  ,4 

; 

5T3  POSIT  IN_STR:I  NG 

IS  1ST  LETTE 

;***  INITIALIZE  FILE  CONTROL 


BLOCK 


EOFM  FCB: 

^OV  EX , 0 AH 
MOV  AL, SPACE 
FILL  SPACES: 

MOV  FCB  NAME  [EX] , AL 
DEC  BX 


;***  FILL  ECB  NAME  WITH  SPACES 
;  *** 


; 


JGE  FILL  SPACES  ;*** 


MOV  FCB_CR [DI] ,DI  J  ***  NEW  FILE  CURRENT  RECORD  IS  ZERO 

^OV  FCB_EXTENT  TDI]  ,DI  ;***  NEW  FILE  CURRENT  EXTENT  IS  ZER r: 


INSTALL  FILE  CONTROL  BLOCK  NAME  *********************/ 


NAME  LOOP: 

MOV  AL ,  IN  STRING  fS I ]  ?*#*  GET  A.  CHARACTER 


CM?  AL .PERIOD 

•  454=4; 

JNE  FOB  CCNT  1 

{4=4=  4= 

"OV  DI .9 

; 

JM?  FCE  CCNT  2 

j  4r  4=4= 

FC3  CONT  1: 

CALL  VALID  INPUT 

TEST  AX, AX 

;  > !=4=4= 

JE  INPUT  ERROR  3 

;  4=4=4< 

MOV  FCB  N *MF[DI] , AL 

J  sjc  4s  4s 

MOV  AX, SI 

;  4=4<4= 

CM?  IN  3TRING+1.AL 

;  4=4=4= 

JB  OPEN  PROCESSOR 

;  4=4=4= 

INC  DI 

•  4=4=4= 

FCB  CONT  2: 

INC  SI 

;  4=4=4= 

JM?  NAME  LOO? 

•  4=  4=  4= 

START  TYPE? 

IF  NO,  CONTINUE 

IF  YES,  ADJUST  DESTINATION 

AND  CONTINUE 

CHECK  FOR  LETTEP  OR  NUMBER 


MOVE  CHARACTER  INTO  FC3 
IS  THIS  LAST  CHARACTER? 

IF  v ES ,  LOAD  THE  FILE 

IF  NO,  ADJUST  FOR  NEXT  LETTEP 

AND  GO  AGAIN 


EXIT  ROUTINE  R : 

JM?  EXIT_ROUTINY  ;***  BRIDGE  TO  EXIT  ROUTINE 

INPUT_ERRCR  B  : 

JVPF  INPUT  FP ROE  ;***  BRIDGE  TO  INPUT  ERROR 


OPFN  THE  PROCESSOR  FILS  *************************** 


OPEN  _PF.  OCESSC’H : 

MOV  DX.FCB 
MOV  CL , OPEN_F ILE 
INT  CPM  3D03  C4LL 
CMP  AL,  NOT_FOUND 
JN 7  LOAD  PROCESSOR 
JM?  NC_IN?UT_FILE 
LOAD  PROCESSOR: 

MOV  DX.FCB 
MOV  CL, PROGRAM  LOAD 
INT  CPM_BDOS  _CA  LL 
PUSH  AX 

JM?  READ  A  NAME 


;***  CP/M  PARAMETER 

i ***  CP/M  PARAMETER 

;***  OPEN  THE  FILE 

?***  WAS  FILE  ON  DISK 

•  ffi  if.  IF  YES,  GO  LOAD  THE  FILE 

;***  IE  NO,  SIGNAL  ERROR 


?***  CP/M  PARAMETER 
?**#  CP/M  PARAMETER 
;***  LOAD  THE  FILE 
I***  SAVE  DATA  SEGMENT 
;***  GIT  NEXT  PROCESSOR 


SET  UP  THE  INITIALIZATION  STACK  tf#****#**^#**#*#** 


*4=4=  CAUTION  ***  CAUTION  CAUTION  ***  CAUTION  4=4=4=4=4=4= 

***  This  code  is  highly  dependent  upon  Input  of  PL/I 
***  CMD  file  with  CS  header  first  and  data  header 
**#  second.  This  is  the  normal  situation  and  should 
cause  no  difficulty.  Also  this  code  is  highly 
dependent  upon  the  location  cf  the  initialization 
***  module  stack  and  the  location  of  the  DS  and  IP 
*#*  values  within  that  stack.  Changes  in  stack 
***  location  or  organization  should  he  reflected  here. 


;***  C 4  U  T 1 0  N  ***  CAUTION  ***  CAUTION  ***  CAUTION  ********* ; 
FXIT  ROUTINE: 


?0®  AX 

#**  RECOVER  DATA  SEGMENT 

NOV  IS , I  NIT  DS  SEG 

***  POINT  TO  INIT  STACK 

vOV  BX.INTT  OS  OFFSET 

***  POINT  TO  DS  ON  STACK 

NOV  ES :  [3X]  , A X 

***  INSTALL  NF.a  INIT  LS 

NC 7  DX.C 

***  SET  NEW  IP  VALUE 

MCV  PX.INIT  I?  OFFSET 

***  POINT  TO  IP  ON  ST 6  CK 

vCV  FS:[3X]TtX 

***  INSTALL  NEW  INI T  IP 

*0  7  CL, SET  ON A  RASE 

***  CP/'K  PARAMETER 

MOV  TX.AX 

**x=  SET  BASE  PAGE 

I NT  CPN  BDC3  CALL 

x*##  set  ON  A  BASE 

NOV  CL, SET  PM A  OFFSET 

***  CP/M  PARAMETER 

NOV  OX , IIGETH  K 

***  GET  OFFSET 

INT  C?N_BDOS_CALL 

***  SIT  DMA  OFFSET 

;***  TRANSFER  CONTROL 

TO  NCORT'EX  XsX‘#X'X‘#Xs#!!«XsJr>S<>!(#^j;<  Jjo^s;*  X!#s,«>r  X: 

*OV  SP.XORE  S? 

;***  KORE  STACK  POINTER 

NCV  BP , SP 

;***  KORE  STACK  BASE 

NOV  SS.KCRE  SS 

;***  KOI.E  STACK  SEGMENT 

MOV  AX, OS 

;***  GET  DATA  SEGMENT 

NOV  ES , AX 

?***  POINT  ES  TO  DS 

NOV  OS ,  KORE  DS 

J***  KORE  DATA  SEGMENT 

JNPF  ESsKORE 

?***  JUMP  TO  "CORTEX 

;***  VALID  CH A f ACTEf 

FOR  FILE  NAVE  CHECK  s##*#****##  *•**#>? 

VALID  INPUT: 

CMP  fit,  ASCII  0 

;***  IS  THE  CHARACTER  A  NUMBER 

JP  NOT  VALID 

*  ^ 

CMP  AL, ASCII  9 

!  tvV 

JPE  IS  VALID 

;  ❖ 

AND  AL.5FR 

;#**  CONVERT  CHARACTER  TO  UPPER  CAS 

CMP  A.L, ASCII  A 

;***  IS  THE  CHARACTER  A  LETTER 

JB  NOT  VALID 

;  xstf* 

CMP  AL, ASCII  Z 

; 

J3E  IS  VALir 

;  *x<* 

NOT  VALID: 

NOV  AX, 2 

;#**  INDICATE  EAD  CHARACTER 

IS  VALID: 

RET 

?***  CH  "FACTE?  OK 

;  ABORT  MESSAGES  **  X'*#*  X!#*:5:*X:X<X«X*XfX‘X'X=*X*&::  £  *  3;: 

NO_FILE  : 

C*LL  CLR  SCREEN 

VCV  DX,07FSET~N0_FILE_MSG  ;***  PTR  TO  NSG 

jmp  msg_output  ;***  put  msg 

NO  MEMORY  ALLOC: 
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vlv/.’XTvl'/.v . ■ 


CALL  CLR_SCRFIN 

f^CV  rx , OFFSET  \'C_.MEyCE  Y_MSG  ?***  PTE  TO  MSG 


y  S  G  CUT  T>U"‘  : 

M.0  V  ”  CL  i?PINT_  STRING 
INT  C?M  BE05_C«LL 
CALL  CLS_S  CREE.N 
yCV  CL , SYSTEy  °ESET 
MOV  DL , ? 

INT  CPM  PECS  CALL 


;***  CP/M  PARAMETER 
i***  SFi ND  CHAP  TO  CONSOLE 

?***  CP/M,  PARAMETER 

;***  hjlease  memory 
?***  EXIT  TO  CP/M* 


SCREEN  CONTROL  #  *  **  *  *  *  * *  *  v  £  *  >1=  * * v  # i? v- $  $  v  v  / 


CLR_SCREEN : 

MOV  CL  ,  CONS  OL'1’  OUT  PUT 
yCV  PL.CR 
INT  CPM  ETCS _CALL 
MOV  DI.OCH 
LINE  FEED: 

MOV  DL, LF 

MOV  CL, CONSOL E_CUTPUT 
INT  CPy_BDOS_CALL 
DEC  DI 

JNE  LINE  FEED 
P  FT 


;***  ISSUE  CARRIAGE  RETURN 

; 

;  *** 

?***  ISSUE  12  LINE  FEEDS 


• 


SEND  MSG: 

MOV  CL, PRINT  STRING 
INT  C?y_BDOS  _CALL 
RET 


;***  cp/m  parameter 

;#*#  PRINT  A  STRING  TO  CONSOLE 


a  go  R  T  MESSAGES  <*####  <* #  #  <*  *  * *;<  *  v  #  * <«  #  *  *  #  ^  v  i?  *  A-  *?  -r  *  si*  *  &  / 

MCORTEX  LOAD: 

MOV  DX, OFFSET  START  MSG 

CALL  SEND  MSG 

RET 

PROCESS  OR_ NAME : 

vOV  DX, OFFSET  P  NAME  MSG 

CALL  SEND_MSG 

RET 

IN  GLOBAL: 

vOV  DX, OFFSET  GLOBAL  0  MSG 

CALL  SEND  MSG 

PET 


INPUT  ERROR: 

CALL  CLR  SCREEN 

MOV  DX, OFFSET  FILE  FOF.M_Er  E_MSG 
JMP  EXIT  ERR 
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’  *  ■  T 

\*‘*j 


#  a?E  V'  X'  &  A'  #  *  »J*  3j;  «r  3r  >r  V?  #  *  #  >;.'  # #  s':  :‘c  #  :|:  A<  #  *  *  *  *  tf  #  3;:  *  *  *  #  *  *  A :  #  sjc  A  :.’i  *: *  *  #  #  *  #  #  *  #  * 

:':  *  >;.*  *’i  X'  #  ^  #  >;>  #  *:  #  $  #  X«  3?  X1  A<  ajc  x<  X*'  #  sjs  #  #  >£  $  X:  >;«  3;;  #  #  #  3;:  5;:  s;<  Xs  >r  >;«  3^  Xs  #  A<  3^  x?  3;;  :;s  s;c  sfc  3;:  >;s  #  9fi  x«  #  #  X?  3ii  x^ 

*•**  '■'COETEX  input  oction  file  *** 

X-  X<  X*  v  3;«  X<  X»  ❖  >!;  X*  X:  ❖  X-  X:  #  ;>  s»t  #  X:  X€  X;  X;  &  it-  X'  A<  X'  >!»  :’.c  #  #  3’,s  X;  X'  s»*  3|c  X;  Xs  X'  XJ  # X:  Xs  X;  X*  r ; :;:  X'  X;  X:  X:  ?r  #  X' ;- :  ;!J ;;:  # 

X:  X:  X: X'  v>^  V  X'  <:  <:  X<  Xs V  si:  >]:  X'  3):  5]c  X:  A'  #  s]«aj<  X?  }|i  s]c  $  X**  X-  3;:  X<  3;:  X;  X>  X'  3|<  3|:  X-  X'  #  Xc  3|c #  X<  X;  X:  ?;e  s':  sfc  X'  X'  X*  Xs  X*  Ar  X:  5*  Xs  A' 

MCORTIX  =  TTX/TRC  [code[ab  [P80] 3 .data  [at  [E5C] ] 1 

:':  xc  >;:  s;:  >f  i;  it  if  3;:  if  if  if  if  X=  if  X.s  sic  if :;:  >;:  s,c  if  if  -,f :;;  X:  if  it :;:  if  3;;  3jc  sic  3je  3;!  if  if  Xc  if  if  Xc  xc  if  if  if  s;c  if  xc  s|t ;;c  3*t  s|:  if  if  5]:  j{: 

•'  if  3l*  if  :;<  £:|:  :|:  i-  :fyfifi-  3;:  '|:  ;f.  if  if  3|!  ^3',:  ^s^sjs  a;i  sje  s{c  :|:  4:  y,:  :;c  ?,:  3^  3|: 

D1  input  option  file  *** 

:■;  s;!  if  if  if  if  ■.  \  j;:  if  if  if  if  #  H%  if  if  :)■  if  if  if  if  if  *  ^  *  '.f  if  3l<  3?  3*  3>  3jt  if  if  3*  #  if  if  if  if  if  if  «  if  if  if  if  if  if  *  if  :|t  *  if  J|:  :1: 5|:  ifi-  if 
if  3;:  3;:  »;« s;t  3|C  3'.;  3;:  if  if  s;s if 3|!  3;:  3;;  3',;  if  if  if  s|;s ;s  if  3;:  s;e  3^  >;-.  i‘.  if  Jj!  if  ^  3js  if  if  if  if  if  if  it  s;;  3)c  sj:  if  3? )>.  3|:  sj:  if  if  it  if  sj!  if  si:  if 

D 1  = 

TIMIT  [cole  [a  b  [54T]  ]  ,  data  [ab  [439]  ,n  [2]  ,ad  [9,2]  ]  ,  ,nap[all]], 
rCDEKO, 

LOGON' , 

GATiMOE 


*  if  i-.  if  if  if  if  s;t  3?  3?  s?  s;;  3|<  si:  sis  3^  3|:  3{:  s^ ){:  3[:  JS  3p  3it  3(t  3>«  3?  if  if  if  if  if  if  if '-i  if  if  if  if  if  * »?  if  if  i‘-  V  3^  if  if  3jt  if  if  if  if 
if  if  if  if  i: if  if  if  if  if  if  if  :,'  ii  if  if  if  if  if  if  if  if  if  if if  if  if  :f  if  if  if  if  if  if  if  >;«  if  if  if  if  if  s;:  if  is  if  s,':  if  #  if  if  if  i,. 

***  D2  input  option  file  *** 

if  if  if  If  If  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  ^  !(:  if  if  s,v  3[:  if  if  s(t  #  if.  if  if  if  if  #  sjr  %  v  % :  if  sj:  $  if  #  «  #  if  if  ^  ^ 

•Is  •'■  if  if  if  s;« if  3|:  if  3;;  s;s  #  3;:  s;<  if  if  3|:  3|:  i;<  3;: 3;<  5’,:  si:  if if  if  if  i: is s'; if  if  if  si"  if 

32  = 

DINIT?-  [code  [ab  [94D]  ]  ,  data  [at  [439]  ,-r;  [2]  ,  ad  [921  ]  ,  renTall]], 
Ncrswc, 

LOGON, 

DTLA  TER, 

GATPNCr 


:I;  sjt  s’;  s|: 3;:  #  s;;  sj:  3?  s;:  3[: X;  s;;  3^  3^  ^  s;s  3j:  3^  s);  s{;  s^  s^  s!;  >1;  s^  #  s>!  #  sic  ^ c  s;:  s',;  s;s  3):  sj:  3|:  3^  s|:  3;t 

Si;  <t  if  if  If  X;  :ic  if  it  if  if  X:  X'  X*  X:  X*  s|«  Xc  if  if  if  if  X<  X«  X«  3“  X;  X<  X'-  if  if  if  X=  X;  if  X«  X'  if  X*  X=  X:  X=  X<  Vif  inf  if  it  if  if  if  x;  s*  Xs  Xs  X'  if  if 

***  EXTRACT  incut  cotion  file  *** 

■if  ;Jc  if  if  :>  if  X:  Xc sit  X-  si:  si:  Xr  if  if  si:  si<  s',:  s;s  X«  sit  s);  s|;  sit  if  if  it  sic  s|t  si:  sjc  s;s  s;c  if  it  if  if  if  it  s|:  if  it  if  if  sit  if  s):  sjc  s’,:  s',t  sis  it  if  X:  si: 
X--  X*  s;:  X:  it  X:  x;  X'  Xt  X=  X=  >it  if  >!=  X«  if  if  if  s^  ’!<  X«  X=  s;t  if  s;t  X:  sit  s^  x<  !’.<  X:  X«  sit  sic  X<  if  if  ’it  sic  xc  if  if  s,cs;c  if  if  if  s;c  s;c  s;c  s;c  X:  si:  x:  Xc  Xc  if  Xc  it  if 

VX TRACT  =  TEX/TRC  [code[at [A9C] ] .data [ab [A6C] J ] 


s*  •  ;;c  >;c  9;.  9,:  9;.  9£  s(:  >;*  #  u*  ffi  9,'  9;.  9£  >i<  »lc  #  X-  ^  3}t  9fi  i|c  9>i  9,z  s!«  5^  9£  9fi  &  #  s;c  tr  ft  ^ 

^  J!*  ^  <'  *  <  *<  A'-/*  A:  *  A-  *  V-  *###  A-  A-  A-  V  ❖  *  ❖  *  *  *  *  **#**##*  *  A<  #  A-  ####  #  ########  A'  #  #  A: 

D1TRC  input  option  file  *** 

V  > Jf  ?;  A  A:  %###*#$*#  %  A'##  %  ####  apajtjfcsjcsjrsicjft#### 

•'  ;!c  r*  r’t :]?  V  ;V  *'  :Jr  :'f  >V  9,:  A:  s!*  ^  A*  sj-  A*  :I*  A1  Af  #  ^  Jjc  A'  ?!  A?  Ac  ^1'  A*  ^  A*  A'  A*  A, ;  A'  A*  A'  '\t  s]?  9,i  ;J;  9,t  ^ 9A  A' A' 

DITr.C  = 

DINIT  [code  [ab[?4?l  1  ,  data  [ab  [439]  ,ti  [2]  ,ad  [52]  ]  ,  nap[alll], 


VCTEMC, 

LOGON, 

GATTTRC 
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Vj  *  -»•-*•  A 


imhmim  iTiItAa  flVnfci 


APPENDIX  T 


INPUT  OPTION  PILES 

This  group  of  files  allows  linkage  of  specified  object 
cede  modules  using  the  LINK8P  input  abbreviation.  As  an 
example,  after  compilation  cf  DINIT. P1I,  NlCDE'kO  .PLI ,  am 
LCiON.PLI,  and  assembly  of  SATPMOD,  the  demonstration 
program  El  is  created  envoking  "LINKB6  Dl[i]".  For  further 
information  on  input  option  files,  see  [Ref.  13] . 


£  ME  *  /*  DC  */ 

CALL  advance  (log_in); 

END  lcp.oni 

* # «c *s if # ## ^ s;;  sjs Xs afc # aj: >): X< X« #X‘ <s  # X: XsXsXs* X=  X= X-- X* # ¥Xs # *!* X= X<  Xs V Xs* aC« *S* X* ¥  X=  ¥  =? s? V X< if  if X-'  V X= 

if  #  £  #  #  X-' X=  «  *  #  if  *  *  *  sf:  *  #  if  ### »;:  >}s^e  *  :|;  *  X«  X*  *  *  *  Xs  X=  *  *  £  *  X«  if  X*  $  J?  -.=  if  X=  if  if  si'-  if  if  *  if  if  if  *  >r  X*  if  V 
s|:  if  if  V  *r  if 

*•**  DELAYED. PLI  code  *** 

* * *  This  code  provides  a  time  delay  to  demonstration 
if##  programs  D1  and  D2 ,  under  the  control  of  D2 . 

l*s  5,c  v  V  *r 

Jll  s;s  Jp  ay  #  #  «  J(S  5|S  #  s?  #  *  5^  *  *  *  >r  *  V  <S  «  #  s!=  5!=  ^  # ’l*  *  #  X*  >;«  *  >i=  «  «  «  V  5^  #  >;«  ❖  5r  5>:  s?  >?  51i  *  5^ 

*  #i#v  X  ■  X:  if  -f  if  X=  #  if  if  if  #  X:  X“r  X=  $  #  if  *  *  X=  X=  X=  X=  if  #  if  if  *  *  X'-  if  if  if##  if##  #  X*  Xs  X'  if  X‘  if  *  if  if  if  *  >?  =r  Xs 


■f## 

%S/  »•< 


delayer : 

PRCCEDU-iE! 

^INCLUDE  'ga teway . pi i ' ; 


DECLARE 

max  count  FIXED  STATIC  INITIAL  ( 16000 ) , 
iterations  FIXED  STATIC  INITIAL  (10), 

'  A , i  ,  j )  FIXED, 

Start  BIT ( 16)  STATIC  INITIAL  ('002C'34), 
num_processors  BIT (16 )  STATIC  INITIAL  k'0002'B4), 

delay  EITiE)  STATIC  INITIAL  ('02'B4), 
sync  BIT ( 8 )  STATIC  INITIAL  ('23'34)5 


DO  a  =  1  to  max_coun t ; 

DO  i  =  1  to  iterations; 

DC  j  -  1  to  max_count; 
end;  /*  do  */ 
end;  /*  do  */ 

CALL  advance  'delay); 

start  =  add2bitl6  (start,  r.uT_proressors )  J 

PUT  EDIT  ('sync  await  is  ',  start)  (s<cip,  All?),  B4'4)); 

CALL  await  (sync,  start); 

end;  /*  do  */ 

END  delayer? 


*  J|:  *  if  if  if  if  if  if  if  *  *  :;c  if  sj:  if  if  if  s’,;  if  s',:  if  #  « a.«  *  *  *  *  *  «  *  *  if  *  s;.-  if  if  s|:  #  s|:  *  $  a,.  *  a£  *: «  ^  ^  a*  *  £  #  a*  a£ 

*  *  *  >f  :?  *  if  -f  *  >:•  *  #  5'.:  ❖  *  if  # a?  #  5^  if  if  if  :'^  *  *  >*  *  *:  a;:  if  *  V  *  if  if  if  *  *  *  5*  *  #  >?  #  *  ^  a?  *  if  a?  a;;  * :;; :;;  if  if  if  if  if 


if  if  if 


***  L  0  G  _  C  N .  PI  I  code 

***  This  rode  allows  the  operater  to  start  all  real 
**”  processors  executing  in  MCDE^O  at  the  same  time 
***  regardle[  cf  the  order  that  they  came  or.  li-e. 

*  *  *  This  is  a  demonstration  only  and  is  not  reauirel 
***  under  MCOETTX. 


#  *  if 
%  3r  # 
5,t  V  *r 
:'t 

*** 


#  if  a*a;;  if  if  jp  if  if j*t  $  *-.  if  if  #  *  *  if  if  if  if  y,:  $  if  if  sjs  if  #  if  if  if  a*  if  #  if  ajt  #  a;-.  if  if  if  if  a;«  >■- 
if  if  if*  if  i-  i:  <:  if  a|:  if  a|:  a;:  if  if  a^  a|t  if  if  if  a|:  if  )';  ii  if  if  if  #  a;:  if  j;:  s;<  j|'  if  £  :|t  #  if  if  if  >j;  if 


VrV 

#  #  i*  #  *:  3;:  -r  #  X  if.  #  ifi  *>■-  3.:  *c 
V  *JS  >jt  )J<  >,i  >j!  Jj5  5  f-  ?Jt  V  3,5  V  ^  V  vV 


log_on : 

procedure; 


%l NCLUD :  'gateway . pi i  ' ; 
j)v  CLA  R  T 

"go  signal  CHAP.  VARYING, 

num_s be  less_l  PIT (16 )  STATIC  INITIAL  ( '?201 'B4) , 
one  TITUS)  STATIC  INITIAL  ('0001'B4)# 

turn  EIT(lf)  STATIC  INITIAL  v'*000'?4), 

log_ir  ?  I T  (  9  )  STATIC  INITIAL  ('?1'B4)J 

DECLARE 

ms?l  CHAP  ACTE?.  ( 39 )  STATIC  INITIAL 

(  '^CORTEX  Demonstration  Program  "ON  LINE"'}, 
msg2  CHAR  ACTER((30 )  STATIC  INITIAL 
('Press  "M  ' RETURN"  to  Continue'), 
msg3  CHAR  ACTER ( 14  )  STATIC  INITIAL 
('Turn  Value  is  '); 

PUT  EDIT  (msgl )  (SKIP(12),  X'21),  A.  ( 3S )  )  i 
PUT  EDIT  (")  (SKIP(  13 )  ,  A(0))J 
CALL  create_evc  (loe_in); 

CALL  create^sea  (log~in)J 
turn  =  ticket  (log  in); 

PUT  EDIT  (msf?3,  turn)  (A(14),  E4(4)); 

IF  turn  =  num_sbc_less_l  THEN 
DO  ? 

PUT  EDIT  (msg2)  (SKIP,  X(25),  A ( 30 ) ) ; 

GET  LIST  ( go_signal ) J 

end;  /*  do  */ 

ELSE 

cc; 

turn  =  add2bitl6  (turn,  one); 

PUT  EDIT  (  'ENTER  awa  i  t  ( 1  og_in ,  turn)  =  await(',  log  ir. 

',  ',  turn,  ')')  (SHIP,  A (34),  B4  :  2 )  ,  A ( 27  , 
B4 ( 4  ) ,  A ( 1  ) )  J 

CALL  await  (log_in,  turn); 
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CALL  await  (  'fe  'B4,  '01  'F4)  5 
/‘-CALL  await  (  SVC  ,  COUNT);  */ 


end; 

end; 


sf:  if  sftaft  >Jt  sf:  sft sf:  sft  aft  rf  if  :1s sf:  if  if  if  ijs  if  sft  sft  if  if  it  sf:  sftsfc  sf:  if  if  aft  if  sf:  sf:  sf: sf:  if  sits’:  sft  s|:  if  if sft  aft  it  sft  s',.'  sft  if  if  if  if  sf:  s’,:  if  if  if 

aft  if  if  it  if  aft  aft  sft  sft  sft  aft  aft  aft  aft  aft  sft  aft  aft  aft  sft  sft  aft  s(t  aft  aft  sft  aft  sft  aft  aft  aft  aft  aft  aft  sft  aft  aft  sft  aft  aft  aft  sft  aft  s;t  aft  aft  aft  aft  aft  sjc  sf:  aft  sf:  *  sft  sft  aft  if  if 


**#  KCDEMC.PL I  code 

**#  This  code  is  the  rain  controlling  code  for  the 
***  demonstration  programs  El  and  E2 .  It  is  compiled 
separately  and  linked  using  the  D1  and  D2  input 
***  option  files. 

aft  sft  aft 


s’t  sft  s’:  sft  s':  sft  if  sft  sft  sft  sft  sft  sft 
sft  sft  sft  ift  sft  sf:  sft  sft  sft  aft  aft  sft  sft 

mcdemo : 

procedure; 


sf-  sf:  aft  a^  aft  sft  sft  sft  if  sft  sft  sft  sf:  sf:  sf:  sf:  sft  sf:  if  sft  sft  sft  sft  sft  sft  sf:  sft  sf;  sft  sft  if  if  sft  sft  sf:  sft  sf:  sft  sf: 
sft  s;c  aft  aft  sft  sft  sft  sft  sft  aft  sft  sft  aft  if  sft  aft  sf:  s£  sft  sft  sft  aft  sf:  sft  aft  if  afc  sft  sft  sft  sjc  aft  sft  sft  sft  aft  sf;  a;:  aft 


aft  aft  aft 
-r  V  'i' 
sfcsfta* 
if  if  if 
sft  aft  aft 


aft  aft  sft  sft  sf:  sft 
tft  sft  aft  sft  aft  s^ 


^INCLUDE  Gateway. pli'; 


DECLARE 

log_on  entry; 

declare 

delay_value  EIT(16)  STATIC  INITIAL  ('0000'P4), 
one  3 1 T  ( 1 6 )  STATIC  INITIAL  ('0001  '34), 
enough  BIT(16)  STATIC  INITIAL  ('0064'B4), 

delay  BIT(8)  STATIC  INITIAL  ,'32'B4), 
sync  BIT(S)  STATIC  INITIAL  ('03'34), 
exit  BI T( 8)  STATIC  INITIAL  ('ff'B4); 


DECLARE 

rrsgl  CF.iT,1CTER(21)  STATIC  INITIAL 
('Delay  Event  Count  is  '); 

CALL  log_on; 

CALL  ereate_evc  (delay); 

CALL  create  eve  (sync); 

EC  WHILE  (delay_value  <  enough); 

PUT  EDIT  (msel,  delav_value  )  (SIIIP(£)t  ‘(2D,  B4(4}); 
CALL  advance  (sync); 

CALL  await  (delay,  delay_value  ) ; 

delay_value  =  read  (delay); 

delay_value  =  add2hitl6  (delay  value,  one); 

END,*  /*  DO  WHILE  */ 

CALL  preempt  (exit); 

END  'T’cdemo ; 


Xt  Xt  Xt  X'  5;:  Xt  if  Xt  >';■  if  s|:  if  j[t  if  if  if  Xt  Xt  ;;t  j;t  if  if  if  if  sjt  j,: X"  X< :?  Xt  j;: if 5;:  if  if  if  if  ^ 

»•..  «<> 

*** 

***  DIM  IT.  PL  I  code 

***  This  cods  creates  the  D1  process  for  execution  under 
**.v  tfcoP.T^X.  Using  the  MCORTEX  loader,  the  last  process 
***  to  be  loaded  ^ust  contain  the  initialization  process. 


'I*  Xt  XtXtXt  X'- Xt  if  X« $  if  X"-  Xt  X"  X=  X'  X-  X'  Xt  X=  #X'-X=X=  Xt  X'  X=  Xt  X=  X'-  X=  X=  Xt  if  X-'  Xt  Xt  Xt  X=  Xt  X«  X=  X'- Xt  X=  X:  X'-  Xt  if  X:  Xt  xt  Xt  X«  Xt  X:  X= 
ir  X<  X'X'  X‘X'  X^  X'  X*  X"  X*  X-  X*  X*  Xt  Xs  X*  Xt  X-  Xt  Xt  X*  XtXt  X'  Xt  X*  X-  X*  X- X:  xt 

i  n  i  t  : 

PROCEDURE  OPTIONS (PAIN)  RETURNS! ) ; 

^INCLUDE  'gateway. ?li ' ; 

3ESIN; 

CALL  ereate_oroc  ('31 '34,  'fd'34, 

'■'*34  b  'B4  ,  '"73a  '34,  '3?23'34, 
'3439  'P4  ,  '3?3a'B4,  '?73a  ' ?  4  ) ; 
/♦CALL  create_oroc  (PROCESS  ID,  PROCESS  PHI  OR ITY  , 

/*  SP  SS  I? 

/*  cs  ds  is  ); 

CALL  await  ('fe'34.  '0l'P4)J 
/*C ALL  await  '  EVC  ,  COUNT);  ♦/ 

end; 
end; 

*  jjc  *  <5  :jc  sjc  *  *  4:  $  3*  *  #  *  #  a*j  #  *  sjc s|< Jjc  #  #  #  jjr  *  *  *  $####$$$  # *  *  #  #  *  #  #  #  *:  *  #  #  #  # 

*.*  J(*  s(*  #  v  >!*  s*s  >!<  >(c :(s  s(t  5(?  sj:  >(;  5(:  5(5  s(:  >(:  s(5 >(s  :(c  >(5  5(5  >(c  s(:  5(5  >(5  >(t  5(5  5(5  5(5  5(5  5(5  5(5  ?(«  V.t  >(s  >(5  5(5 ;(s  s(; >(•,  ;(;  5(5 

v  DINIT2.PLI  code 

*  This  code  creates  the  D2  process  and  the  delayer 

*  process  for  execution  under  "CORTEX.  Usirs  the 

*  KCC-TEX  loader  the  last  process  loaded  ^ust  contain 

the  initialization  process. 

x: 

X:  if  *  X=  X'  X'  X:  X=  X=  X •  X'  X-'  X^  X'  X!  X:  X*  X=  X:  £  X^  X;  X=  X-  X-  X-'  X'  X=  Xt  X-  X=  5r  X«  X=  X!  X:  X=  X=  X=  *  X=  X«  x,:  if  if  if  X:  X  -  -r  X=  X= 

X  ’if  X'  t ■  >!■  -f  X.’  X-  X  X:  X"  X-  X  ❖  X-’  X--  X<  X-  X-’  X^  X-"  X<  X-  X-"  X;  X*  X"  X<  Xt  X;  X:  X-"  X:  X:  Xs  Xt  Xt  X«  X:  X'  Xt  Xt  Xt '  •  Xt  X1  Xt  Xt  X  Xt  X:  Xs 

it : 

PROCEDURE  OPTIONS (MAIN )  RETURNS (  ) ; 

^INCLUDE  'gateway . cl i 
3E0IN; 

CALL  create  proc  ('?1'E4,  'ed'34, 

'^929 '34,  '3713  '34  ,  '3329 '34, 
'3439  '34 ,  '3713 '54 ,  '3713 '34 ) • 

/♦C ALL  create  dtoc  ( ?P.0CESS_ID ,  PROCESS_PRI 
/♦  ~  SP  SS  IP 

/*  CS  DS  ES  ); 

CALL  create  proc  ('32'E4,  'fd'?4, 

'3a49'34,  '0713'B4,  '01c2'34, 

' 3439  '34 ,  '3713 '34 ,  '3713  ' B4  )  * 


PUrtCNISTfATin 

The  files  presented  here  are  a  series  of  procedures  that 
ran  te  compiled  separately  and  linked  ir.  accordance  with 
LINKBfi  input  option  files  in  APPENDIX  F.  The  results  will 
be  demonstration  processes  D1  and  D2,  or  D1TFC  and  E2TEC 
deoerdins  or.  the  option  files  selected. 


CALL?  "  ATTK2EPE-. 
?0?  ?5 

R?T 


;***  ADD23IT16  ***  ADC2EIT16  ***  ADB2BIT16  ***  AIL2BIT16 


ADD2BIT16: 

MOV  SI,[3X]  JSI  <—  PTR  TO  BIT*'16)#1 

*0  7  BX  ,  2  [BX]  ;  BX  <—  ?T5.  TO  3ITfl6)#2 

MOV  3X,r3X]  ;BX  <--  PIT' 16  )  £2 

'  DD  BX  ,  [51]  ;BX  <—  3IT'lc)*l  +  BIT(ie)#2 


° U S H  3S  {  ?T?_S  EG  < —  E7 EMT  COUNT  SEGMENT 

PUSH  CX  ?PTR_CFFSET  <—  EVENT  COUNT  POINTER 

C All F  0 ATE KEEPER 

POP  3X  {RETRIEVE  EVENT  COUNT 

PC?  IS 

RET 

{***  CP. EATE_??CC  ***  CRE ATE_PRCC  ***  CPSATF_P?.OC  ********** / 

CPF  ATE  PI-OC: 

PUSH  ES 

MOV  SI. 14  [3X1  ; S I  PTE  TO  PROCESS  ES 

PUS^  WORD  PTR  [SI]  {STACK.  PFOCESS  ES 

v07  SI,  12  [3X1  :  S I  <—  PTR  TO  PROCESS  PS 

PUSH  WO -D  PTF  [SI1  {STACK  PPOCESS  DS 

vOV  SI,  1?  [3X  ]  {SI  <—  PTR  TO  PROCESS  CS 

PUSH  WORD  PTR  [SI]  {STACK  PROCESS  CS 

*OV  SI.  B[PXl  SSI  <—  PTE  TO  PROCESS  IP 

PUSH  WORE  PTR  [SI]  {STACK  PROCESS  I? 

MOV  SI,  6  [BXl  { S I  <—  PTR  TO  PROCESS  SS 

PUSH  WORD  PTR  [SIl  {STACK  PPOCESS  SS 

vov  si,  4[rx'!  :sr  <—  ptr  to  process  sp 

PUSH  WORD  PTR  [SI]  {STACK  PROCESS  SP 

MOV  Sl,2[?xl  {SI  <—  PTR.  TO  PROCESS  PRIORITY 

NOV  A  H  ,  [SI]  {C-ET  PROCESS  PRIORITY 

MOV  SI  ,  [ F X ]  ;si  0  —  PTR  TO  PROCESS  ID 

MCV  A L  ,  [SI]  {GET  PROCESS  ID 

PUSH  AX  {STACK  PROCESS  PRIORITY  AND  ID 

*‘0V  CX.SP  {POINTER  TO  DATA 

NOV  AL, CHEAT*  PR0C_IND 

PUSH  AX  ~  !N  < —  CREATE  PROCESS  IND 

PUSH  AX  IEYT  <—  UNUSED  WORD 

PUSH  AX  {WORTS  <—  UNUSED  WORD 

PUSH  SS  IPROC  FTP  SEGMENT  <—  STACK  SEG 

PUSH  CX  { PRCC  PTR  OFFSET  <—  DATA  POINTER 

CALL?  GATFKEE?E= 

6 DD  SP , 14  JFEMOVE  STACKED  DATA 

POP  ES 


;***  PREEMPT  PREEMPT  ***  PREEMPT  PREEMPT  tf*#*** #*<«*/ 


PR  EEMPT  : 

PUSH  ES 
MOV  3X ,  [3X] 

M0V  AL,PR7EM?T_IND 
PUSH  AX 
MOV  AL.fBX] 

PUSH  AX 
PUSH  AX 
PUSH  AX 
PUSH  AX 


;3X  <—  ?T  1  TO  NAME  OF  PROCESS 

JN  <--  PREEMPT  INDICATE?. 

{ EYTE  <—  PREEMPT  PROCESS  NAME 
{WORDS  <--  UNUSED  WORD 
{PT?  SEG  <—  UNUSED  WORD 
{ PTR~OFFS  ET  <—  UNUSED  WORD 


:•  .v , 
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PUS1!  AX 

CALL?  GATEKEEPER 
POP  ES 

* '  "V  T 


;?TP.  OFFSET  <— UNUSED  WORD 


J*##  C?E»7F  SEO 


CREA  TF  SEC  ***  C?E«TI  SEO 


-  'i*  *r  *r  *i5 


CREATE  SEO : 

PUSH  ES 

«OV  BX ,  [3Xl 

MOV  AL, CREATE  SEC_INB 

PUSH  AX 

MOV  AL , [EX] 

PUSH  AX 
PUSH  AX 
PUSH  AX 
PUSH  AX 


CAlLF  GA  TFXFEPE;-: 
POP  ES 


;?x  <—  FTP.  TO  MAKE  OP  SEO 

;.M  <—  CF E ATE_SEO  INDICATED 

JBYT  <--  NAME  OF  SEC 
J WORDS  <—  UNUSED  WOi'D 
JPTR_SEG  <--  UNUSED  WORD 
JPTR  OFFSET  <- -UNUSED  WORD 


TICKET  TICKET  *** 


TICKET  #**  TICKET  TICKET  * 


TICKET: 

PUSH  ES 
PUSH  ES 
MOV  CX.S? 

MOV  3X.[3X] 

MOV  AL,  TICKET  I  MO 

PUSH  AX 

MOV  AL ,  [PXl 

PUSH  AX 

PUSH  AX 

PUSH  SS 

PUSH  CX 

C«LLF  0  ATFKFFPER 
POP  BX 
POP  ES 

rJJT 


JTICKET  NUM?F°  DUMMY  STORAGE 
; POINTER  TO  TICKET  NUMEE? 

JBX  <—  PTR  TO  TICKET  NAME 

IN  <—  TICKET  INDICATES 


JBYT  <—  TICKET  NAME 
J WORDS  <—  UNUSED  WORD 
JPT?_SEG  <—  TICKET  NUMBER  3 EG 
JPT?_OF?SET  < —  TICKET  NUMBER  POINT 

; RETRIEVE  TICKET  NUMBER 


;**>;•  HEAD  ***  READ  READ  ***  READ  READ 


READ  ** 


-FAD: 

PUSH  ES 
PUSH  IS 
VC V  CX.S? 

MOV  BX.C5X1 
MOV  AL , READ  INI 
PUSH  AX 
MOV  »L,[3Xl 
PUSH  AX 
PUSH  AX 


J  FV rNT  COUNT  DUMMY  STORAGE 
{POINTER  TO  EVENT  COUNT 
JBX  <—  PTR  TO  EVENT  NAME 

JN  <--  READ  INDICATE0. 


JBYT  <—  EVENT  NAME 
JBYT  <--  UNUSED  W'CRD 


3-*TiKYEPE?_IP  DW  3062H  1  #  < 

GA?EKZEPER_CS  DW  034AE  ; ##**  2  »**#  < 

ENDIF 

GATEKEEPER  ECU  DWORD  PTR  GATEKS2PEfi_I? 

CSZG 


AWAIT  ***  AWAIT  ***  AWAIT 


AWAIT  ***  AWAIT 


AWAIT: 

PUSP  ES 

MCV  SI  ,  2 [BX]  ;si  <—  PNT  TO  COUNT  AWAITED 

MOV  BX,[3X]  J  BX  < —  PNT  TO  NAME  OF  EVENT 

MOV  AL, AWAIT  IND 

PUSH  AX  ;N  <—  AWAIT  INDICATOR 

MCV  AL ,  [BX] 

PUSH  AX  JBYT  < —  NAME  OF  EVENT 

MOV  AX,  [SI]  ;AX  <—  COUNT  AWAITED 

PUSH  AX  ;WO?DS  <—  COUNT  AWAITED 

PUSH  AX  JPTR  SSG  <—  UNUSED  WORD 

PUSH  AX  ;?TR  OFFSET  <— UNUSED  WORD 

CALLF  GATEKEEPER 
POP  ES 


?***  ADVANCE  ***  ADVANCE 


i VANCE  ADV4NCE  v##*  #**>?#«/ 


ADVANCE: 

PUSP  ES 

MOV  BX ,  [EX]  JBX  <--  PTR  TO  NAME  OF  EVENT 

vOV  AL, ADVANCE  IND 

PUSH  AX  IN  < —  ADVANCE  IND I CAT SR 

MCV  AL ,  [EX] 

PUSH  AX  f BYT  <—  NAME  CF  EVENT 

PUSH  AX  ; WORDS  < —  UNUSED  WORD 

PUSH  AX  ;?TR  SEG  <—  UNUSED  WORD 

PUSH  AX  :?TR~CF7SET  <— UNUSED  'WORD 

CALL?  G A.TEKEF PEE 
POP  FS 


RET 

?***  CPFiTF_EVC  ***  CREA TE_EV C  ***  CRE ATE_Ev'C  **** 

CREATE  TV C  : 

PUSH  ES 

MOV  BX,  [BX]  ;BX  <—  PTR  TO  NAME  CF  EVENT 

vOV  AL.CPTATV  FVC  IND 

PUSH  AX  JN  <—  CREATE  EVC  INDICATOR 

MOV  4L,[5X] 

PUSH  AX  J2YT  < —  NAME  OF  EVENT 

PUSH  AX  ; WORDS  <T —  UNUSED  W CRD 

PUSH  AX  JPTF  SEG  <—  UNUSED  WORD 


$  v  y,s  sjt  j •fi  s',;  5X  / 
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#  *  #  SJ:  sic  >■:  3{c  sic  >;c  #  #  s(c  s(c  V  sjc  V  #  #  sfc  <t  V  s(e  J(c  V  J«£  #  Xc  V  #  #  #  <s  #  s(c  sp  3jc  #  W  Sc  *  s>c  S5  V  Ss  *  S=  s£  S'  S'  #  *  S'  S'  *  S 

*  GATE-MOD  /  OATETRC  File  GATEM/T. a£6  Rowe  12  Feb  F' 

S' _ 


Rowe  12  Feb  F4 


*  This  module  is  given  to  the  user  in  obj  form  to  lin* 

*  with  his  initial  and  process  modules.  Any  changes  to 

*  user  services  available  from  the  05  "ust  be  reflected 

*  here.  In  this  way  the  user  need  not  be  concerned  with 

*  actual  GATEKEEPER  services  codes.  Two  lines  of  code 

*  are  contained  in  conditional  assembly  statements  and 

*  control  the  output  to  be  GATEMOD  or  G-AT2TEC  depending 

*  on  the  value  of  GATEMOD  at  the  code  start. 

*  This  module  reconciles  parameter  passing  anomalies 

*  between  MCOPTEX  written  in  PL/M)  and  user  programs 

*  (written  in  PL/I). 

j|< _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 

*  All  calls  are  made  to  the  GATEKEEPER  in  LSVFL2  of  the 

*  OS.  The  address  of  the  GATEKEEPER  must  be  given  below, 

.V 

*  The  ADD25IT16  function  does  not  make  calls  to  MCORTiX. 

*  It's  purpose  is  to  allow  the  addition  of  two  unsigned 

*  16  bit  numbers  from  PL/I  programs. 

S'  *  S'  £  if  if  S'  *  if  Sc  sjs  S'  S'  S'  S'  s,^  S'  s£  S'  *  S'  S'  S'  sic  S'  %  s)!  S'  S'  Sc  sjc  S'  if  sjc  if  if  if  S'  if  S'  if  S'  if  S'  sf:  if  if.  *  s[:  if  if  S:  S'  sfc  S'  s 


DSEG 

GATEMOD  EO U  0  ;***  SET  TO  ZERO  FOE  GATETRC 
i ***  SET  TO  ONE  FOR  GATEMOD 


PUBLIC  ADVANCE 
PUBLIC  AWAIT 
PUBLIC  CREATE  FVC 
PUBLIC  C?.EATE_PROC 
PUBLIC  CREATE~SEO 
PUBLIC  PREEMPT 
PUBLIC  READ 
PUBLIC  TICKET 
PUBLIC  ADD2BIT16 


;***  THESE  DECLARATIONS  MAKE  THE 
}***  GATEKEEPER  FUNCTIONS  VISIBLE 
;***  TO  EXTERNAL  PC0CES5ES 


AWAIT  IND  EOU  0 
tDVANCi_lND  FC’J  1 
CREATE  ZVC  IND  ECU  2 
CREATE_SEQ~IND  ECU  3 
TICKET_IND  ECU  4 
READ  IND  EOU  5 
CREATE_PR0C_IND  EOU  6 
PREEMPT  IND  EOU  7 


?***  THESE  ARE  THE  IDENTIFICATION 
i**#  CODES  RECOGNIZED  BY  THE 
;***  GA.TEKFEPER  IN  LEVEL  II  0* 
?***  MCORTEX 


IF  GATEMOD 

GATEKEEPER  IP  TV  0B2AH 
GA?EKEF?ER~C3  DW  0BEBH 
ELSE 


*'•  .**  s'*  *'*  i 

.v’.s’V.C 
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f  s}c  if  Xt  X:  Xs  X:  X'  J|:  ir-  Xs  :|i X;  >;s  X«  Xs  X=  Xs  5^  Xs  Xs  Xs  #  X:  Xt  X= '.;:  s;:  jJ:  Xs 
y  Xs  Xs  Xs  si:  X«  Xs  sx  Xs  X*  Xs  Xs  Xs  Xs  x«  x<  fr  X*  X=  Xs  X*  V  Xs  Xs  X:  X'  X!  V  Xs  X:  -;•  sis  sX 

/**  SATEwRY  FILE  S ATFWAY  .  ?LI 

/  =:=  5;=  =  -  =  =  ===  =  ==-==  =====■=== -======  =  = 

/#*  This  section  of  code  is  given 
/»*  %INCLUDE'd  with  MCORTFX  user 
/**  declarations  are  made  for  all 
/**  functions  and  for  AED23IT16, 
/**  allowin.2  unsigned  addition  of 

/«U  %*.*  •'*  «<#  O*  J#  **/  »■#  *•*  «li  J#  **#  %•*  J#  %'/  «V  *'#  *'»  V'  «'«  . 

*1'  »(*  v  v  *>'  »i*  v  *»'  '1-  »r*  -i  ■  »r  v  'i*  »r»  'f  •»,-  *.»  <r*  v  o*  'i*  v  v  »i-  »,•  »,>  *,« 

/  vb  «•/  y »  *v  *'■  »•»  yu  y#  *■#  y»  »i»  v#  y<  »><  *'*  <i<  »v  y-  y<  y#  y-  y<  y> y>  %y  «■«  ,v  ■ 

/  v  "r  n*  n1*  V  »i'  ¥  v  y  v  «r  »i'  *c  'c  *f  '»'■  n'vn,*i*'r  t  •>*  *»-  v  n*  •»*  y  »)*  »,>  *j«  . 


«'<  *'*  y«  »•/  j»  *•»  y •  *0  y»  y»  *»*  y»  «•«  j<  »■*  y>  y#  y*  y.  y»  y<  »■•  y»  y»  y»  y»  y«  y>  y»  •>»  y-  *i#  y«  ■■»  *i*  y<  *v  y  / 

V  v  *i*  n*  y  '1*  y  '»•  '1*  '1*  v  v  'i«  y  y  y  y  y  y  »,*  y  y  'i'  »,■  y  'i'  3,*  »,*  y  »|*  *,  «,»  »,*  y  <,•  / 

X:  X=  X=  >X  X:  5^=4=  X:  X'  X:  X=  X=  X:  Xt  X=  =X  X*  >X  X*  X<  SX  Xs  =X  sX  :X  X«Xs  =X  X;  Xs  V  V  Xs  X'  Xs  X=  Xs  X=  Xs  Xs  Xs  X:  / 

ILF  5 ATFWAY. ?LI  W  .R .  ROWE  4  MAR  84  **/ 


as  a  ?L I  file  to  be 
orograms.  ENTRY 
available  MCORTFX 
a  utility  function 
16  bit  numbers  . 

X-  x*'!*  v  *>'  X*  5c  v  'i~  *  *  v  -I*  x*  X-  x*  'i‘  'i'  X*  ^  x*vX* 
Xs  Xs  V  *  X-  *  X;  Xs  sis  sX  X=  »i;  X»  X‘  X‘  3 X  Xs  s<<  s[t xt  s,t 


iHfiftr/ 


DECLARE 

advance  ENTRY  (EIT  (3) )  , 

/*  advance  (even t_count__id  )  */ 

await  ENTRY  (FIT  (3),  BIT  (16)), 

/*  await  (event_count_id ,  awai ted_val ue )  ’V 

create_evc  ENTRY  (PIT  (8)), 

/*  create_evc  ( event_coun t_id )  */ 

create_t>r oc  ENTRY  (PIT  (fc),  EIT  (8), 

EIT  .16),  EIT  (16),  EIT  (16), 

EIT  (15)  ,  BIT  (16),  BIT  ( 15  ) )  , 

/*  create_proc  ( processor_id ,  pr ocessor_or i only,  */ 
/*  s tacic_pointer_h ighes t ,  stack_seg,  in  */ 

/*'  cole_seg,  data_seg,  extra_seg)  */ 

createseq  ENTRY  (BIT  (3)), 

/*  create_sea  (sequence_id  )  */ 

preempt  ENTRY  (EIT  (6)), 

/*  preempt  (nrocessor_id )  */ 

read  ENTRY  (BIT  (8))  RETURNS  (BIT  (16)), 

/*  read  (even t_c oun t_id )  */ 

/*  RETURNS  current_event_count  */ 

ticket  ENTRY  (BIT  (3))  RETURNS  (BIT  (16)). 

/*  ticket  ( seo uence_id )  */ 

/*  RETURNS  unique  ticket  value  */ 


add2bi t 16  ENTRY  (BIT(16),  BIT(16))  RETURNS  (BIT  (16)); 
/*  add2bitl6  (  a_16tit_#,  another  16bit  _*)  ■' / 

/*  RETURNS  a  16bit  #  *  another  16bit  «  "  «/ 
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APPENDIX  D 


GATE  MODULE  CODE 

Two  files  are  ro ntained  here.  The  first  is  PL/I  cole, 
GATEWAY,  which  must  he  %INCLCJDE'd  with  every  user  process 
reauirins  access  to  MCORTEX.  The  second  is  A 66  code  which 
provides  an  interface  between  the  GA.TiWA i  and  the  MCO...iX 
supervisor.  The  object  code  obtained  iron  assembly  of  this 
file  must  te  limited  with  all  user  processes  to  proviie 
"gateway"  access  to  KCOF.TM  functions.  Two  lines  of  rode 
are  conditionally  assembled  to  produce  either  GAT  EMC D  cr 
GATETFACE.  The  conditional  variable  is  called  GATEMCD. 


***  D2TRC  input  option  file  *■ 

*£  #  5r  *  if  *  £  V*'  #  >r  *  *  £  #  #  *  *  *f  *  £  $  *r  =r  =r  *  $  *  *  *  *  *  51=*  #  #  fc  #  *  £  *  #  V  >r  #  V  *  #  =?  *  *  *  V  #  *  *  * 

Si;  * ;’.:  if  if  if  if  if  if  if :[:  if  if  if  *  if  jf  *  * :;:  *  if  **  if  if  #  *  if  *  if  #  if  if  if  if  if  if  if  if  if  ##  if  *  if  *  V  V  *•  *  *  *  ¥  *  £  * :‘:  ■, 


D2TPC  = 

DINIT2  [code[abf?4El]  ,  data  [ab  [4391  ,t?  [0]  ,  ad  [82]  ]  ,  ™ap[all]] 
MCTEMO, 

LOGON  , 

DELAYER , 


APPENDIX 


LEVEL  II  —  MCOPTZX  SOURCE  CODE 

All  the  LEVEL  II  source  cole  written  in  PL/h1  is 
contained  in  the  file  LEVEL2.SEC.  It  is  compiled  with  the 
LaZDE  attribute.  LEVEL  II  is  one  of  the  relocateabl®  red® 
modules  in  file:  ECRE.LNK.  It  is  part  of  the  executaole 
code  rrcdule  in  file:  XOP.F.  TO -E  is  the  development  system 
version  of  the  file  KORE.OPS  loaded  by  ^ICCETEX.CMD  under  the 
CP/^-86  operating  system.  Two  nemory  maps  (KOPE.OP5  ar.d 
KOEE.TRC)  located  in  Appendix  H  s ive  information  on  this 
module.  The  maps  come  from  file:  KCRE.MP2  after  compiling, 
linking  and  locating  the  applicable  files.  KGRZ(OPS)  is 
produced  with  the  code  unaltered.  KOItE(TrtC)  is  obtained  by 
removing  and  adding  appropriate  comment  marks  from  the 
indicated  code  before  processing. 


a?##** 


¥  #  ^  ¥  v  V 


■V  'I5  *>*  V  *1'  V 


/  'f  0  0  0 Q  * * *  *  '•'  *  :'c  #  *.:  v  >;s  -.<  i?  *’•  #  V  j;<  *t  if  if  if  if  >:•■  »:c :;-  # >;c if  s;;  jj:  #  3|:  5?  J? if  s£  if  if  V  ¥= if 


V#  »¥  %•#  *V  / 
T  ;r  T  'r  / 

5j5  ^  J»{  5r  ^ 
****/ 


/*  FILE: 
VERSION: 
PROCEDURES 
DEFINED: 


LS7EL2.SSC 
?. C ■  E  6-22-34 

G AT S$ KEEPER 
READ 
ADV  *NCE 
TICKET 
OUT $C FAR 
OUT  $  NUN* 

SEN  D$CHAR 
'?EC  V$CHAR 
IN$NUM 
IN$PEX 


CREATES?'*'! 

AWAIT 

PREEMPT 

CREATSSP?.! 

OUTSLI NE 

OUTSDNUM 

OUTSHEX 

I  N$CHAR 

IN$D\TM 


REMARKS:  !!!  CAUTION  !!!  !!!  CAUTION  !!!  !!!  CAUTION!!! 

I?  NEW  USER  SERVICES  ARE  ADDED  TO  THIS  NODULE 
OR  CHANGES  ARP  MADE  TO  EXISTING  ONES.  MAKE 
SURE  THE  LOCATOR  MAP  (FILE:  K0RE.MP2)  IS  CHECK¬ 
ED  TO  SEE  IF  THE  LOCATION  OF  'G ATFAXFSPER '  H»S 
NOT  CHANGED.  THE  APSCLUTE  ADDRESS  OF  THIS 
PROCEDURE  HAS  EEEN  SUPPLIED  TC  THE  OATESMODULZ 
IN  FILE:  GATE. SRC.  IF  IT  HAS  CHANGED  THE  NEW 
ADDRESS  SHOULD  EE  UPDATED  IN  FILE:  GATE. SRC 
.AND  RECOMPILED.  ALL  USER  PROCESSES  WILL  HAVE 
TC  PF  RELINKED  WITH  FILS:  GATE . OBJ  AND 
RELOCATED . 

LITERAL  DECLARATIONS  GIVEN  AT  THE  BEGINNING 
OF  SEVERAL  MODULES  ARE  LOCAL  TO  THE  ENTIRE 
yCDULH .  HOWEVER,  SOME  ARE  LISTED  THE  SAME 
IN  MOPE  THAN  ONE  MODULE.  THE  VALUE  AND 
THEREFORE  THE  MEANING  OF  THF  LITERAL  IS 
COMMUNICATED  ACROSS  MODULE  BOUNDARIES. 
'NOTSFOUNr'  USEr  IN  LOCATE$EVC  AND 
C'-E  &TE$EVC  IS  AN  EXAMPLE.  TO  CHANGE  IT  IN 
ONE  MODULE  AND  NOT  THE  OTHER  WOULD  KILL 
THE  CREATION  OF  ANY  NEW  EVENTCOUNTS  BY  THE 
OS  . 


/  if.  $$  3^  *c * ¥  jjs*##**#*  Jjs  ##  ***  *s*c  ##**####  ##  ###  *3*  #  t 

/  ***  0  2  7  3 >,c  ^  #  :  i  5-;  #  :r  •['  :i;  3,'  5jc  #  #  #  #  >|c  *fe  #  #  jjc  sfc  ;Jt  #  ?!:  ijs  ;J;  5jt  :Jc  sj;  #  a}: #  #  ajs  :Jc / 

L2$M0DULE :  DO  5 


/  *  >!*  .•;•  if  j£:  if  if  if  if  if  *  if  if  if  j):  #  j|«  j|e  )jc  :(< if  if  if  #  if  s':  if  if  if  Jp  >1*  if  if  if  if  if  UK- if  3^^  if  if  i(:  if  if  if  if  if  if  V  #  / 

/*  LOCAL  DECLARATIONS  */ 


DECLARE 


MAXSCPU 

LITERALLY 

'13', 

MAX $  VPS  $ CPU 

LITERALLY 

'13', 

M A.XSCPUSSS SMAXS VPS  $  CPU 

LITERALLY 

'133'  , 

FALSE 

LITERALLY 

'3'. 

READY 

LITERALLY 

'1'. 

RUNNING 

LITERALLY 

'3', 

WAITING 

LITERALLY 

TRUE 

LITERALLY 

'119'  , 

NOT$ FOUND 

LITERALLY 

'255', 

PORT  SC  A 

LITERALLY 

'00C AH  '  , 

RESET 

LITERALLY 

'3', 

I  NTS RET URN 

LITERALLY 

'77K'J 

r't  n  tV  »’•  ^  >><  V'  •*<  »•>  *1#  «<•  *U  »l»  •!*  *>«%*«  »•»  «■<  »•«  »l* 

v  *»*  '■*  'r  v  'i*  v  n*  V 'A  v  v *»•  v  w  *i* 

«j{  »*»  •</  A  j»<  .<<  y.  y#  j« 

sjt  s|c  #  :Jt  sj:  £  ;J;  #  #  j'.s 

J,  *1/  v*.  ,*/  ,1.  .* .  / 

■  'I*  V  'i*  'i*  »**  't'  «.•  *|,  'TV  / 

PROCESSOR  DATA  SEGMENT 

TABLE 

*/ 

DECLARED  PUBLIC  IN 

MODULE  'L1SMODULE' 

*/ 

IN 

FILE  'LEVEL1 

*/ 

DECLARE  P.RDS  STRUCTURE 


CPUSNUMBFR 

BYTE, 

V  PSSTART 

BYTE, 

VPSEND 

BYTE, 

VPSSPEFSCPU 

BYTE, 

LAST  SPUN 

BYTE, 

COUNTER 

WORE) 

external; 


/*01  09#***#  #  J?***#*  **####******#*#*  **#*#,(:*#>****  #**!',!**  #¥##*«*  / 

/*  GLOBAL  TATA  BASE  DECLARATIONS  */ 

/*  DECLARED  PUBLIC  IN  FILE  'GLOBAL  .SRC '  */ 

/*  IN  MODULE 'GLOBALSMODULE'  */ 


DECLARE  7?M(  MA XSCPUS SS SMA X$ VPS $CPU  )  STRUCTURE 


(VPSID 

BYTE, 

STATE 

BYTF, 

VPSPPIORITY 

BYTE, 

EVCSTHREAD 

BYTE, 

EVCSAW$VALUE 

WORD, 

SPSREG 

WORD, 

S  S  $  R  EG 

WORD) 

external; 

DECL  ARE 

EVENTS 

BYTE 

external; 

DECLARE  EVCSTBL 

(103)  STRUCTURE 

f  E7CS  NAME 

BYTE, 

VALUE 

WORD, 

THREAD 

BYTE) 

external; 

DECLARE 
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SEQUENCERS 

BYTE 

external; 

DECLARE  SEO-T  4BLE  (100) 

STRUCTURE 

( S  EO$  N  AME 

BYTE, 

SEQ- VALUE 

WORD) 

external; 

DECLARE 

N  R  $  V  ?  S (  MAX5CPU  ) 

BYTE 

EXTERNAL, 

N?.$P.  PS 

BYTE 

EXTERNAL, 

HDW$ I NT$FL  4G  (MAX-CPU 

KBYTE 

EXTERNAL, 

GLOBAL- LOCK 

BYTE 

external; 

/*  DECLARATION  OF  EXTERN  * L  PROCEDURE  REFERENCES  */ 

/*  DECLARED  PUPLIC  IN  FILE  'LE7EL1.SRC'  */ 

/*  IN  MODULE  'LEVEL1-MODULE'  */ 

VPSCHEDULER :  PROCEDURE  EXTERNAL;  END; 

IN  FILE  '5CHED.ASM'  */ 

F ?T$ V ?  :  PROCEDURE  BYTE  EXTERNAL »  END? 

I OC ATE$  EVC  :  PROCEDURE  ( FVENT$NA. ME  )  FYTE  EXTERNAL; 

DECLARE  FVENT- NAME  BYT'5’; 

end; 


LOCATE$SEO  :  PROCEDURE  ( SEO$NAME )  BYTE  EXTERNAL  f 

DECLARE  SEC- NAME  BYTE.* 

end; 


/  *  0 1 7  S  *******  *  *  *  ■<  *  *  *  s{t  sis  s^sjs  #  #  if  Sis  *  #  sjs  if  sis  if  if  if  if  #  if  sit  sis  £  #  s*  s;s  sit  s;s  s-t  sj:  s|;  sj:  s;s  s;:  sit  s;s  >;$  s'.s  / 

'/*  DIAGNOSTIC  MESSAGES  (WILL  EVENTUALLY  3E  REMOVED)  */ 


/***  MXTRACE 
/***  MXTRJ  CE 


*  if  if  *  if  MXTRACE  *****  MXTRACE  sissies** 
Sn sjc s(s sjs  M X T ?. A C E  sissjss^s^sjc  MXTRACE  ***** 


MXTRACE  ***/ 
MXTRACE  ***/ 


/*  DECLARE 
/*  MSG16!* ) 

/*  msgi?;*) 
/*  MSG18 ( * ) 
/*  MSG19(*) 
/*  MSG21 '  * ) 
/*  MSG23!*) 
/*  MSG24!*) 
/*  M  S  G  2  5 !  *  ) 
/*  MSG25 ! * ) 

/*  MSG2?(*) 


BYTE  INITIAL (  'ENTERING 
BYTE  INITIAL (  'ISSUING 
BYTE  INITI AL (  'ENTER  I NG 
FYTE  INITIALS 'ENTERING 
3 YTE  INITIAL!  'ENTERING 
BYTE  INITIAL!  ' ENTFP I NG 
P YTE  INITIAL ( 'ENTERING 
BYTE  INITIAL! 'ENTERING 
EYTF  INITIAL ( 'ENTERING 
BYTE  INITIAL ( 10 ,  'ENTER 


PREEMPT', 13. 10,  '%')  . 
INTERRUPT!! ',13,10,  )  , 

AWAIT', 10, 13, '%'), 
ADVANCE  ' , 1* , 13,  '%')  , 
CREATE-EVC  FOR  %'), 

READ  FOP  EVC :  $  ')  , 

TICKET ',13, 10,  '%  ')  , 
CREATE$SFO  %'), 
CREATE5PR0C ',10,13, 

ING  GATE-KEEPER  N=  %')] 


/*  DECLAPF 

/*  CR  LITERALLY  '?DB  ' , 
/*  LF  LITERALLY  'PAH'? 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


CE  i  ND 


/*P2 18***************************************************** / 

1 1f.il  If  #  if  if  if  3|«  3|t  s|;  s(:  if  #  3|i  if  it  if s|t  it  it  it  if  it  if  it  if  if  s|t  if  it  3{s  if :|:  3|t  it  if  3|c  :f  s|t  it  it )(;  s|t  sjt  s;s  #  s|c  :;t  3|t  3(5  3£  3^  y 

/**  GATSiRESPEE  PROCEDURE  ROWE  6-22-94  ****/ 

/  if  3;:  if  it  it  3(5  if  if  if  if  Sit  s|:  s:s  3.t  s;e  if  if  it  if  if  :Jc  >|t  if  if  if  :;t  if  if  >|t  s’,;  it  if  s|t  if  if  if  if  it  ft  :|t  s|t  :f  3^  >|t if  1|C  3|C  3|!  3^  3|t  3|t  3?  3?  3|t  3^  s|:  s|5  / 

/*  THIS  PROCEDURE  IS  THE  ENTRY  INTO  THE  OPERATING  */ 

/*  SYSTEM  DOMMN  FROM  THE  USER  DOMAIN.  THIS  IS  THE  */ 

/*  ACCESS  POINT  TO  THE  UTILITY/SERVICE  ROUTINES  AVAIL-  */ 

/*  ABLE  TO  THE  USER.  THIS  PROCEDURE  IS  CALLED  BY  THE  */ 

/*  GATE  MODULE  WHICH  IS  LINKED  WITH  THE  USER  PROGRAM.  */ 

/*  IT  IS  THE  GATE  MODULE  WHICH  PROVIDES  TRANSLATION  */ 

/*  FROM  THE  USER  DESIRED  FUNCTION  TO  THE  FORMAT  RICUIR-  */ 

/*  FD  EOR  THE  GATEKEEPER.  THF  GATEKEEPER  CALLS  THE  */ 

/*  DESIRED  UTILITY/SERVICE  PROCEDURE  IN  LEVEL2  OF  THE  */ 

/*  OPERATING  SYSTEM  AGAIN  PERFORMING  THE  NECESSARY  */ 

/*  TRANSLATION  FOP.  A  PROPER  CALL.  THE  TRANSLATIONS  ARE  */ 

/*  INVISIBLE  TO  THE  USER.  THE  GATEKEEPER  ADDRESS  IS  */ 

/*  PROVIDED  TO  THE  GATE  MODULE  TO  BE  USED  FOR  THE  IN-  */ 

/*  DIRECT  C  4 L L  .  */ 

/*  */ 
/*  THE  PARAMETER  LIST  IS  PROVIDED  FOP.  CONVENIENCE  4  ND  */ 

/*  REPRESENTS  NO  FIXED  MEANING,  EXCEPT  FOR  'N ' .  */ 

/*  N  FUNCTION  CODE  PROVIDED  BY  GATE  */ 

/*  BYT  BYTE  VARIABLE  FOR  TRANSLATION  */ 

/*  WORDS  WORD  “  ”  "  */ 

/*  PTR  POINTF?  VARIABLE  FOR  TRANSLATION  */ 

/* 024^* ***************** ***********************************/ 

GATESKEFPER:  ?ROCEDURE(N ,  EYT ,  WORDS,  PTR )  REENTRANT  PUBLIC; 

DECLARE 

(N,  BYT)  EYTF , 

WORDS  WORD, 

ptr  pointer; 

/*  I -0  SERVICES  ARE  NOT  ACKNOWLEDGED  FOR  TWO  REASONS:  * 

/*  1.  THEY  ARE  CALLED  SO  OFTEN  THAT  DIAGNOSTIC  OUTPUT  * 
/*  WOULD  BE  TOC  CLUTTERED.  * 

/*  2.  THEY  THEMSELVES  PRODUCES  I -0  EFFECTS  THAT  * 

/*  ACKNOWLEDGE  THEY  ARE  BEING  CALLED.  * 

/***  MXTRACE  *****  MXTPACE  *****  MXTRACZ  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  IF  N  <■  a  THEN  do; 

/*  CALL  0UT$LINE(@MSG27 ) ; 

/*  CALL  OUT$NUM(N)J 

/*  CALL  OUT$CEAP.(CR  ); 

/*  CALL  OUT$CHAP(LF); 

/*  end; 

/***  MXTRACE  *****  MXTRACE  *****  MXTPACE  *****  MXTPACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACF  ***/ 


DC  CASE 

n; 

/-' 

N 

*/ 

C  5LL 

*W A  IT (BYT.  WORDS) 

;  /* 

0 

*/ 

C  ALL 

ADVANCE { BYT  )  I 

/* 

1 

*/ 

C»LL 

C" EATE-rVC  ( BYT ) J 

/* 

2 

*/ 

C  5LL 

C- EATE$SEO( BYT ) J 

/* 

3 

*/ 

CALL 

TICK?T(?YT,PTR) ; 

/* 

4 

*/ 

CALL 

RE  AD ( BYT  ,PTR ) ? 

/* 

5 

*/ 

CALL 

CR?ATE$PP.OC(PTR ) 

;  /* 

6 

*/ 

CALL 

PREEMPT (  BYT  ); 

/* 

7 

*/ 

/***  MXTRACE  *****  MXTRACE 

MXTRAC. 

/***  MXTRACE  *****  MXTRACE 

MXTRAC! 

/*  CALL 

OUTSCFAR ( BYT) ; 

/* 

8 

*/ 

/*  CALL 

OUT-LINE (PTR) ? 

/* 

s 

*/ 

/*  CALL 

OUT-NUM(BYT); 

/* 

10 

*/ 

/*  CALL 

OUT-DNUM( WORDS  )  ? 

/* 

11 

*/ 

/*  CALL 

IN-CPAR(PTR); 

/* 

12 

V 

/*  CALL 

I  N  -NU.M  (  PTR  )  ; 

/* 

13 

*/ 

/*  CALL 

IN-DNUM(PTR); 

/* 

14 

*/ 

/***•  MXTRACE  *****  MXTRACE 

***** 

MXTRAC: 

/***  MXTRAC 

!S  *****  MXTRACE 

MXTRAC' 

/ 


/ 

/ 


end;  /*  case  */ 
return; 

END?  /*  GATE-KEEPER  */ 

/* 03 ^ 5* ********************************************* *******  / 
/*  CREAT7-EVC  PROCEDURE  ROWE  6-22-34  */ 

# - 

/*  CREATES  EVENTCOUNT  EOR  INTER-PROCESS  SYNCHRONIZATION.  */ 
/*  EVENTCOUNT  IS  INITIALIZE!  TC  0  IN  THE  EVENTCOUNT  TABLE.*/ 

CREATE- EVC :  PROCEDURE( NAME )  REENTRANT  PUBLIC! 


DECLARE  NAME  EYTE; 

/***  MXTRACE  *****  MXTSACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTR‘CE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  CALL  OUT-L I NE  ( (AMS021 ) ; 

/*  CALL  OUT-NUM (  NAME )  ? 

/*  CALL  CUT-CHA? ( CR ) • 

/*  CALL  OUT-CHAR (LF); 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  ”XTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  ASSERT  GLOEAL  LOCK  */ 

DC  WHILE  LCCKSET (<?GLOBAL-LCCK  ,  119 )  •  END! 

IP  /*  THE  EVENTCOUNT  DOES  NOT  ALREADY  EXIST  */ 

LOCATZ-EVC (NAME)  =  NOT-EOUNE  THEN  DO? 

/*  CREATE  THE.  EVENTCOUNT  ENTRY  BY  ADDING  THE  */ 

/*  NEW  EVENTCOUNT  TO  THE  END  CF  THE  EVC-TABLE  */ 
EVC-TBL;'FVENTS)  .EVC-NAME  =  NAME! 

E VC -TBL( EVENTS ). VALUE  =  0! 

EVC-TPL ' EVENTS ). THREAD  =  2E55 


/*  I  NCR  EM? NT  THE  SIZE  OF  THE  EVC<TABLE  */ 
EVENTS  =  EVENTS  *  l; 

ENT?  /*  CREATE  THE  EVENTCOONT  */ 

/*  RELEASE  THE  5 LOB A L  LOCK  *7 

GLOB ALSLOCK  =  'Ai 

RETURN? 

end;  /*  CREATE$EVC  PROCEDURE  */ 


7*03? 6 *******  Si:*#*### sjt^t / 


/*  READ  PROCEDURE  ROW E  6-22-84  */ 

/* - */ 

/*  THIS  PROCEDURE  ALLOWS  USERS  TO  REAL  THE  P-ESSNT  VALUE  *7 
/*  OE  THE  SPECIFIED  EVENT$COUNT  WITHOUT  MAKING  ANY  */ 

/*  CHANGES.  A  POINTER  IS  PASSED  TO  PROVIDE  A  BASE  TO  A  */ 
/*  VARIABLE  IN  THE  CALLING  ROUTINE  FOR  PASSING  THE  RETURN  */ 
7*  VALUE  BACK  TO  THE  CALLING  ROUTINE.  *7 


I  s*  a1,;  sje  alts’:  s{i  ^cs;c  s;cs^  »^atc  3^  #  alsafcsfcfcaJtsJtfca^atcaCeifcjfcafca^jfc  a^siaalcX:  sjealsafc  s|e#s£)(c  a^  j 

»EADs  PROCEDURE (  EVC$NAME,  RETS $?T?  )  REENTRANT  PUBLIC  5 
DECLARE 

EV  C$  NAME  BYTE, 

EVCTBL$INDEX  BYTE, 

RETS  $?TR  POINTER, 

EVC$VALUE5RET  BASED  RETS$PTR  WORD; 

/*  SET  THE  GLOBAL  LOCK  */ 

DO  WHILE  LOC KSET (PGLOBAL$LOCK , 119 ) J  END? 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MX  TRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  CALL  CUT$  L INE ( EMSG23 ) ; 

/*  C  °LL  OU T $  N  UM ( E  V C  $  N  A  ME  ) ; 

/*  CALL  OUT$C?.AR(CR); 

7*  CALL  OUT$CRAR(LF); 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  EXTRACT  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  OBTAIN  INDEX  */ 

FVCTBL$ I NDEX  =  LOCATE$EVC(  E VC  $  NAME  )J 
/*  OBTAIN  VALUE  */ 

EVC$VALUE*RET  =  EVC$TBL(  EVCTBL^INTEX  ). VALUE? 

/*  UNLOCK  GLOBAL  LOCK  */ 

GLOBAL^ LOCK  *  0  ? 

R  FT URN J 

END?  /*  READ  PROCEDURE  */ 


7*0412***************************************************** / 
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A  inf  AIT  PROCEDURE 


/* - */ 

/*  INTER  PROCESS  SYNCHRONIZATION  PRIMITIVE.  SUSPENDS  */ 

/*  EXECUTION  OE  RUNNING  PROCESS  UNTIL  THE  EVENTCOUNT  EAS  */ 

/*  REACHED  THE  SPECIFIED  THRESHOLD  VALUE,  **AW»ITED$V *LUE . "*/ 
/*  USED  BY  THE  OPERA  TINS  SYSTEM  FOR  THE  MANAGEMENT  OF  */ 

/*  SYSTEM  RESOURCES.  */ 

/a*#*###**#**  V*#***********#:?#!!:#******#**##*#***#  *#**#***##/ 

AWAIT:  PROCEDURE ; EYC SID, AWAITED $ VALUE )  REENTRANT  PUBLIC; 
DECLARE 

AWAI TEDS  VALUE  WORD, 

( EVCS ID ,  NEED$SCHED ,  RUNNI NG$ VP, EVCTBLSI NDEX )  BYTE; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACF  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACF  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  CALL  0UTSLINEOMSG13)  ? 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  **'*/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  LOCH  GLOBAL  LOOK  */ 

DO  WHILE  LOCKSSET ( 0 GLOBAL SLOCK ,  119);  END; 

NEEDSSCHED  =  TRUE? 

/*  DETERMINE  THE  RUNNING  VIRTUAL  PROCESSOR  */ 

RUNNI  NG$V?  =  RETSVP,* 

/*  GET  EVC  INDEX  */ 

FVCT3LSINDEX  =  LOCATESEVC ( EVC$ID) ? 

/*  DETERMINE  IF  CURRENT  VALUE  IS  LESS  THAN  T'JE 
AWAITED  VALUE  */ 

IF  EV CSTBL ( EVCTBLSI NDEX ) .VALUE  <  AW  A ITEDS VALUE  THEN  DC; 

/*  BLOCK  PROCESS  */ 

V  PM ( RUNNINGS VP) . EVCSTHREAD=E VC ST3L( EVCTBLSI NDEX) .THREAD? 
VPM1'  RUNNI  NGSVP)  .ZVC  SAWS  VALUE  =  AWAI TEDS V A  DUE! 

EVCST3L (  EVCTBLS INDEX  ) .THREAD  =  RUNNINGS’/?,' 

disable; 

PRDS  . LA STS RUN  =  RUNNINGSVP? 

VPM(RUNNINGSVP) .STATE  =  WAITING? 

END?  /*  BLOCK  PROCESS  */ 

ELSE  /*  DO  NOT  BLOCK  PROCESS  */ 

NEEDSSCHED  =  FALSE? 

/*  SCHEDULE  THE  VIRTUAL  PROCESSOR  */ 

IF  NEEDSSCHED  =  TRUE  THEN 

CALL  VPSCHEDULER?  /*  NO  RETURN  */ 

/*  UNLOCK  GLOBAL  LOCK  */ 

GLOB ALSLOCK  =  0? 

RETURN? 


90 


/*P482***** ***********************  ********************** 
/*  ADVANCE  PROCEDURE  ROWE  6-22-24 

/*- 
/* 

/* 

/* 

/* 

/*- 


INTER  PROCESS  SYNCHRONIZATION  PRIMITIVE.  INDICATES 
SPECIFIED  EVENT  HAS  OCCURPED  BY  ADVANCING/ INCREMENT  I 
THE  ASSOCIATED  EVENT  COUNT .  EVENT  IS  BROADCAST  TO  AL 
VIRTUAL  PROCESSORS  AWAITING  THAT  EVENT. 


/ 

*r  / 

— */ 
*/ 
NO*/ 
L  */ 


/*  CALLS  MADE  TO:  CUT$LINE 
/*  VP SCHEDULER  (NO  RETURN) 

/  # * #  #  *  *  $  #  *  *  *  ##  5*  $  S|!  #  $£  X?  £ *  #  #  3?  #  J?  S*# S)t  $ 

ADVANCE:  PROCEDURS(FVCtlD)  REENTRANT  PUBLIC! 


*/ 

— */ 
*/ 

*/ 
!rW'  y 


D  v  CL \RE 

-(EVC$ID,  NEED  $SCHED  ,  NEED$  I  NTR  , 
(S*VE,  RUNNINGS VP,  I,  CPU) 


EV  CTEL$INDEX ) 


BYTE, 

BYTE! 


/***  MXTRACE  *****  MXTRAC7  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTF.ACF  *****  MXTPACE  *****  MXTRACE  ***/ 
/*  CALL  OUT $L I NE ( 0MSG1 9) ! 

/***  MXTPACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/*  LOCK  THE  GLOBAL  LOCK  */ 

DO  WHILE  LOCKSET (9GL0BAL$L0CK ,119); 


end; 


RUNNINGS?  =  RET$VPJ 
EVCTBLSINDEX  =  LOC ATE$EVC ( EV C$1 D) ! 

E VCATBL ( EV CTBL$ INDEX) .VALUE=EVC$T3L(EVCTBL$INDEX ) .VALUE  +  1 
N  EED  $3CHED  =  FALSE! 

NEED 5 I NTR  =  FALSE! 

SAVE  =  255! 

I  =  EVC$TBL(  EVCTBL$I NDFX  ). THREAD! 

DO  WHILE  I  <>  255! 

IF  VPM( I ) .EVC$AW$VALUE  <=  EVC$T3L (EVCTBL $1 NDEX ). VALUE 
THEN  DO!/*  AWAKEN  THE  PROCESS  */ 

VPM  f I ) .STATE  =  READY! 

V PM (  I ) . FVC$A'W$V ALUE  =  0! 

CPU  =  I  /  MAX$VPS$CPU  ; 

IF  SAVE  =  255  THEN  DO!  /*TRIS  FIRST  ONE  IN  LIST*/ 
EVCATBL(FVCTBLAINDEX)  ,THKEA.D=VPM(  I ) .  E  VC  $  TH  ?.  E  A  D ! 

VPM (  I  ).EVC$THREAD  =  255! 

I  =  EVC$TBL(  EVCTBLi I NDEX  ). THREAD! 

END!  /*  IF  FIRST  */ 

ELSF  DO!/*  THEN-  THIS  NOT  FIRST  IN  LIST  */ 

VPM (  SAVE  ) .EVCSTHhEAD  =  7PM(  I  ) . EVCSTHREAD ! 

V PM (  I  ) . EVC$THP.EAD  =  255! 

I  =  V PM (  SAVE  ) .EVC$THREAD! 


END;  /*  I?  NCT  FIRST  */ 

IF  (  CPU  <>  PPDS  .CPUS  "JUPPE?.  )  THEN  DO? 
HDW  $1  NTSFL  AG  (  CPU  )  =  TRUE ; 

N  EED$ I NTR  =  TRUE? 

end; 

ELSE  NEEDS SCHED  =  TRUE; 

END;  /*  1 7  AWAKEN  */ 

ELSE  do;/*  DO  NOT  AWAKEN  THIS  PROCESS  */ 


SAVE 


i; 


i  =  vpm (  i  )  .evcsthf.ead; 

end;/*  I?  NOT  AWAKEN  */ 
END;/*  DC  WHILE  */ 

IF  NEEDSINT?  =  TRUE  THEN  DO 
/***  EXTRACT  *****  MXTRACE  ’S'5!'#** 
/***  MXTRACE  *****  MXTRACE  ***** 
/*  CALL  OUT$L INF (  0MSG17  ); 


J  /*  HARDWARE  I NTR  */ 
MXTRACE  *****  MXTRACE 
MXTRACE  *****  MXTRACE 


^  rr  / 

*•»  / 
-r*  '<*  / 


/***  MXT3ACF  *****  MXTRACE  *****  MXTRACE  ***** 


MXTRACE  ***/ 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE 
DISABLE; 

OUTPUT ( PCRTSC  A )  =  8eHJ 
CALL  TIME(l); 

OUTPUT ( POETS C A)  =  RESET? 

ENABLE  ? 


■[-■ft- MXTRACE  ***/ 


END!  /*  NEEDSINTR  */ 

IF  NEEDSS CHED  =  TRUE  THEN  DO? 

disable; 

PRDS . LA  stsrun  =  running^?; 

VPMf  RUNNING $  VP ) . STATE  =  READY; 
CALL  VPSCHEDULER;  /*  NO  RETURN  */ 

ent;  /*  if  needssched  */ 

/*  UNLOCK  TFF  GLOBAL  LOCK  */ 

GLOB ALSLOCK  =  0? 
return; 

end;  /*  ADVANCE  PROCEDURE  */ 


/  *  0  5  ®  1  *************  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  jfc  ♦  <5  s)t -f 
/*  PREEMPT  PROCEDURE 
/* - 


ROWE 


%•#  *V  0#  %1#  V f  / 

*i*  r  ”«»  'i  v  v  ¥  r  v  *v  / 

6-22-£4  */ 


/*  THIS  PROCEDURE  AWAKENS  A  HI  PRIORITY  PROCESS  LEAVING 
/*  THE  CURRENT  RUNNING  PROCESS  IN  THE  READY  STATE  AND 
/*  CALLS  FOR  A  RESCHEDULING.  THE  HIGH  PRIORITY  PROCESS 
/*  SHOULD  BLOCK  ITSELF  WHEN  FINISHED. 

/*  IF  THE  V ?$ ID  IS  'FS '  OR  TEE  MONITOR  PROCESS,  IT  WILL 
/*  MAKR  IT  READY  WHEREVER  IT  IS  IN  THE  VPM.  THE  FOLLOW- 
/*  ING  CODE  POES  NOT  TAKE  ADVANTAGE  CF  THE  FACT  THAT 
/*  CURRENTLY  IT  IS  THE  THIRD  ENTRY  IN  THE  VPM  FOR  EACH 
/*  REAL  PROCESSOR. 

/* - 

/*  CALLS  MADE  TO:  OUTLINE,  VPSCHEDULER 

*  ## *  *  *  ijt  #  #  *  if  «  #  j{t  if-  #  *  #  # *  *** >1:  a,V  **  #  *  sis  $  if 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
-*/ 
*/ 
**  / 


PPEEMPT :  PROCEDURE (  VPSID  )  REENTRANT  PUBLIC? 


DECLARE  (VPAID.SFARCEAST , SEARCH $ END ,  CPU , I NDEX )  EYTE? 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  EXTRACT  *****  MXTR ACE  *****  MXTRACE  ***/ 

/*  CALL  0UT$LINE(  0MSG16  ); 

/***  EXTRACT  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

IE  V ? $ I D  <>  0FEH  THEN  DO ?  /*  NORMAL  PREEMPT  */ 

/*  SrARCH  VP*  FOR  INDEX  FOR  ID  */ 

SSARCEAST  =  0? 

DO  CPU  =  O  TO  (NE$R?S  -  1)5 

SEARCHAFND  =  SEARCH  AST  +  NR$VPS(  CPU  )  -  1  ? 

DC  INDEX  =  SEARCE$ST  TO  SEARCHAENB? 

IF  V?M(  INDEX  ) . VPAI D  =  VP  AID  TEEN  GO  TO  FOUND? 


IF  V?M(  INDEX  ).V?$ID  =  VP  AID  TEEN  GO  TO  FOUND? 
END?  /*  DO  INDEX  */ 

SEARCHA5T  =  S  EARCHA5T  +  M  A.X$  VPS  $  CPU  ? 

END?  /*  DO  CPU  */ 

/*  CASE  IF  NOT  EOUND  IS  NOT  ACCOUNTED  FOR  CURRENTLY  */ 
FOUND: 

/*  LOCK  THE  GLOBAL  LOCK  */ 

DO  WHILE  L0CK$SET(9GL0BALAL0CK,119) ?  END? 

/*  SET  PREEMPTED  VP  TO  READY  */ 

V  PM (  INDEX  ). STATE  =  READY? 

/*  NEED  HARDWARE  I NTR  OR  RE-SCEED  */ 

IF  (  CPU  =  PF.DS  .CPU  $  NUMBER  )  TEEN  DO? 

INDEX  =  RET$VP?  /*  DETERMINE  RUNNING  PROCESS  */ 
DISABLE? 

PRDS .LAST $  RUN  =  INDEX? 

V PM (  INDEX  ). STATE  =  READY?  /*  SET  TO  READY  */ 
CALL  VPSCHEDULEE »  /*  NO  RETURN  */ 

END? 

ELSE  DO?/*  CAUSE  HARDWARE  INTERRUPT  */ 

/***  MXTRACE  *****  MXTRACF  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  C  ALL  OUT$LINE( 9MSG17  )  ? 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


*****  MXTRACE  ***/ 


=  RESET?  ENABLE? 


'*  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***** 
EDWAINT$FLAG(  CPU  )  =  TRUE? 

DISABLE?  OUTPUT (  PCRT$CA  )  =  80H? 

CALL  TIME(1); 

OUTPUT (  PORTKA  )  =  RESET?  ENABLE? 
END? 

END?  /*  NORMAL  PREEMPT  */ 

ELSE  DO?  /*  PREEMPT  THE  MONITOR  */ 

/*  SEARCH  VPM  FOR  ALL  ID'S  OF  0FEH  */ 
SEARCHAST  =  0? 

DO  WHILE  L0CKtSET(9G LOB SL$ LOCK, 119)?  END? 
DO  CPU  =  0  TO  (NRARPS  -  1 ) ? 

S  EARCHA  END  =  SEAPCH$ST  +  NR$V?S(  CPU  ) 
/*  SET  »LL  INT$FLAGS  EXCEPT  THIS  CPU'S 
IF  PRDS .CPUAMUMBIR  O  CPU  THEN 


-*  MXTRACE  ***/ 


HEW  $ INT$FLAG (  CPU  )  =  TRUE  * 

DO  INDEX  =  SE  ARCH5ST  TO  SEARCHtEND? 

IE  V?M(  INDEX  )  .  V  ?  S I  D  =  VPSID  THEN 
V?M(  INDEX  ). STATE  =  READY  ? 

END:  /*  DO  */ 

S  EAR  CHSST  =  SEARCH$ST  +  MAX$VPS$C?U; 

END;  /*  ALL  MONITOR  PROCESS  SET  TO  READY  */ 
/*  INTERRUPT  THE  OTHER  CPU'S  AND 
RESCHEDULE  THIS  ONE  */ 


M  X  m  R  *  C  E 

***** 

MXTP 4  CE 

^  •»* 

MXTRACE 

.V  V>  *V  •'< 

O'  O'  O*  O' 

MXTRACE 

/ 

/  ^  5r 

MCTRACE 

***** 

MXTR  ACE 

MXTRACE 

***y,syy 

MXTRACE 

T^5ry/ 

/* 

CALL  CUT$LI NE ( 0MSG17 

\  • 

J  f 

/  #  #  >;« 

MXTRACE 

***** 

MXTRACE 

MXTFACE 

*  V  *  *  * 

^X TRACE 

^  y/ 

f  •?  V  V 

MXTRACE 

***** 

MXTRACE 

n*  *!'  *r  T  ^ 

MXTRACE 

***** 

MXTRACE 

/ 

DISABLE  ? 

OUTPUT (  ?ORT$CA  )  =  60 H J 
CALL  TIMF(l); 

OUTPUT (  PORTSCA  )  =  RESET; 

enable; 

INDEX  =  PETAV?; 

disaple; 

PRDS . LAST$RUN  =  INDEX? 

VPM( INDEX)  .STATE  =  READY? 

CALL  VPSCHEDULER!  /*  NO  RETURN  */ 
END?  /*  ELSE 

/*  UNLOCK  GLOBAL  MEMORY  */ 

GLOE  AL$LOCK  =  0; 

RETURN? 

END?  /*  PREEMPT  PROCEDURE  */ 


/*371 1***  *************  *********  ****************************  / 
/*  CREATE^ SEO  PROCEDURE  ROVE  6-22-84  */ 


/*  CREATOR  C?  INTER  PROCESS  SEQUENCER  PRIMITIVES  FOR  USE-  */ 
/*  PROGRAMS.  CREATES  A  SPFCIFIED  SEQUENCER  AND  INITIAL-  */ 
/*  I ZES  IT  TO  0,  BY  ADDING  THE  SEQUENCER  TO  THE  END  OE  THE-/ 
/*  SEQUENCER  TAIL?.  -/ 


/* - */ 

/*  CALLS  MADE  TO:  OUT$LINE  OUT$CEAR  */ 

/*  CUT$HEX  */ 


/  y.:  *  #  *  *  *  y;  *  j?  *  *  *  *  *;  y:  *  *  y:  *  *  *  *  *  *  *  *  *  *  *  *  * *  *  *  ****************  *  *  *  *  *  *  *  / 


CREATE$SEQ:  PROCEDURE! NAME)  REENTRANT  PUBLIC  5 


DECLARE  NAME  BYTE? 

/*  ASSERT  GLOBAL  LOCK  */ 

DO,  WHILE  LOCKS  5T  (0G  LOB  AL$  LOCK  ,  119  ) ;  END?' 


/***  MXTP.A.CE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/* **  MXTRACE  *****  MXTPACF  *****  MXTRACE  *****  MXTRACE  ***/ 


/*  CALL  OUTSIINS(0MSG25); 

/*  CALL  CUTSHEX(NAME); 

/*  CALL  OUTSCHAR(CR); 

/*  CALL  CUTSCHAR(LF); 

/***  MX  TRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTHACE  *****  MXTRACE  *****  MXTHACE  *****  MXTHACE  ***/ 

IE  ./*  THE  SEQUENCER  DOES  NOT  ALREADY  EXIST,  IE  */ 

LOCATES SEQ ( NAME)  =  NOTSEOUND  THEN  DO; 

/*  CREATE  THE  SEQUENCER  ENTRY  BY  ADDING  THE  */ 

/*  MEW  SEQUENCER  TO  THE  END  OF  THE  SEQ STABLE  */ 

S  EG$TABLE( SEQUENCERS ) .SEOSNAME  =  NAME; 

SEQST ABLE (SEQUENCERS ) .S EOS VALUE  =  0? 

/*  INCREMENT  NUMBER  OE  SEQUENCERS  */ 

SEQUENCERS  =  SEQUENCERS  +  15 
END?  /*  CREATE  THE  SEQUENCER  */ 

/*  RELEASE  THE  GLOBAL  LOCK  */ 

GLOBALSLCCK  =  0? 

return; 

end;  /*  C RE ATESSEG  procedure  */ 


/  *  0  7  p  9  ************************  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  -  f  *  #  #  5i 

/*  TICKET  PROCEDURE  ROWE  6-22-f 


/*  INTER -VIRTUAL  PROCESSOR  SEQUENCER  PRIMITIVE  FOR 
/*  PROGRAM.  SIMILAR  TO  "TAKE  A  NUMBER  AND  WAIT."  R 
/*  PRESENT  VALUE  OF  SPECIFIED  SEQUENCER  AND  INCEEMEN 
/*  SEQUENCER  .  A  POINTER  IS  PASSED  TO  PROVIDE  A  BASE 
/*  VARIABLE  IN  THE  CALLING  ROUTINE  ECR  PASSING  THE  R 
/*  VALUE  BACK  TO  THE  CALLING  ROUTINE. 

/* - 

/*  CALLS  MADE  TC :  OUTSLINE 

/  * «  *r-  #  fr  ***  *«#***#*  s*##**#  #  #**#**«  *  ***  # 


USE? 
ETUP. 
TS  T 
TO 

ETUR 


*i-  .»«  / 
V  'i*  'i*  / 

*/ 

— */ 
*  / 
NS*/ 
HE*  / 
A  ~  */ 
N  *  / 
*/ 

— */ 
*/ 


TICKET:  PROCEEURE(  SEOSNAME ,  RETSSPTR  )  REENTRANT  PU3LIC5 


DECLARE 

SEOSNAME 
s  eqtbls index 
RETSSPTR 
S  ECS  VA.LUESRET 


BYTE, 

BYTE, 

POINTER, 

BASED  RETSSPTR  WORD? 


/*  ASSORT  GLOBAL  LOCK  */ 

DC  WHILE  LOCKS  ET ( 9GL0BAL SLOCK , 1 19 } *  END? 

/***  mX?E4CF  *****  MXTHACE  *****  MXTHACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  ^X TRACE  ***/ 

/*  CALL  OUT  $L  I NE ( 0MSG24 ) ; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/*  OBTAIN'  SECS  NAME  INDEX  */ 

SEOTBISINDEX  =  LOCATESSEQ?  STOSNAMS  ); 

/*  OBTAIN  SEQUENCER  VALUE  */ 

SEOS VALUES RF?  =  SEO$T  ABLE(  S EQTBLS I NDEX  )  .5EQSVALUE; 
/*  INCREMENT  SEQUENCER  */ 

SEOSTAPLEt  SEQTBLSINDEX  } . SEQSVALUE  = 

SEC$T s  BLE ( SECTBLS I NDEX ) . SEC$V ALUE  +  1  5 

/*  UNLOCK  TEE  OLOEAL  LOCK  */ 

GLOB ALSLOCX  *  F  ! 

return; 

end;  /*  TICKET  PROCEDURE  */ 


/  «  0  0  2  P  #  #  #  *  A*  ❖  #  ~  if  *  >I«  #  if  *  <=■  *  sjc  if  if  s*  *  ♦  *  *  *  sis  5?  if  #  *  $  #  *  *  <=  *  :>  if  if  s*  *  *  *  *  Sit  sic  Sit  # 

'*  CREATESPROC  PROCEDURE  ROWE  6-22-94 


THIS  PROCEDURE  CREATES  A  PROCESS  EOF:  THE  USER  AS 
SPECIFIED  BY  THE  INPUT  PARAMETERS  CONTAINED  IN  A 
STRUCTURE  IN  THE  GATE  MODULE.  THE  PARAMETER  PASSE] 
IS  A  POINTER  WHICH  POINTS  TO  THIS  STRUCTURE. 

INFO  CONTAINED  IN  THIS  STRUCTURE.  IS:  PROCESS  ID, 
PROCESS  PRIORITY,  THE  DESIRED  PROC  STACK  LOCATION, 
AND  THE  PROCESS  CODE  STARTING  LOCATION  WHICH  IS 
IS  TWO  ELEMENTS:  THE  IP  REGISTER  (OFFSET)  AMD  THE 
CS  REGISTER  (CODE  SEGMENT). 


ajeslcsjcslc  / 

V 

-if/ 
*  / 


CALLS  MADF  TO:  OUTLINE 

|!  if  if  if  #  sic  sic  sic  sic  s*c  i;.  if  sic  3^  if  >)c  s{c  sjt  i;  sic  i[c  if  :Jc  i;:  sic  if sje  if  SJt  sic  s'.c  if  if  if  if  sic  if.  s;e  s'.c  s.c  s|c  s;c  if  s,: 


s.csicslc  sjcslcsl: 


V 

if  sic  s',',  sit  / 


CREATES PROC :  PROCEDURES  PKOCSPTR  )  REENTRANT  PUBLIC; 
DECLARE 

PP.OCSPT'-  POINTER, 

PROCSTAELE  BASED  PROCSPTR  STRUCTURE 


(PROC SID 

BYTE, 

PROC  SPR I 

BYTE, 

PROCSSP 

WORD, 

PRCCSSS 

WORD, 

PROCSIP 

WORD, 

PRCCSCS 

WORD, 

p.Rocsrs 

WORD, 

PROC  S  ES 

WORD); 

DECLARE 

(PS1,  PS 2)  WORD, 

TEMP  byte; 

DECLARF  PROCSSTACKSPTR  POINTER  AT(OPSl), 

PROCSSTACK  BASED  PROCSSTACKSPTR  STRUCTURE 
( LEN5TH( 0FEH )  BYTE, 


I 


PETS  TYPE 

BP 

D I 

SI 

DS 

DX 

CX 

AX 

EX 

ES 

I? 

cs 

EL 


WORD , 
WORD , 
WOPD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD, 
WORD , 
WORD, 
WORD); 


/***  MXTF.iCE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  vy.  TRACE  ***/ 


/*  CALL  0UT$iINE(0M3G26) J 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***** 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***** 
/*  TO  SET  UP  PROC $  STACKS  PTE  */ 

PS1  =  PROCSTAPLF.PROCSSP  -  HER; 

PS2  =  PROC  STAPLE .PR OC  AS S  J 

PROCSSTACK  .RETSTYPF  =  I  NTS  RETURN? 


MXTRACE  ***./ 
MXTRACE  ***/ 


PROCSSTACK .EP 
PROCSSTACK. Dl 
PROCSSTACK .SI 
PROCSSTACK. DS 
PROCSSTACK.DX 
PP.OCS STACK  .CX 
PROCSSTACK. AX 
PROCSSTACK .EX 
PROCSSTACK.ES 
PROCSSTACK .IP 
PROCSSTACK.CS 
PROCSSTACK .FL 


PRCCSTABLE.PROCSSP; 

0,' 

0; 

PPOCSTABLE.PROCSDS; 

0; 

05 

0.* 

0; 

PRCCSTAELE.PROCSES; 

PROCSTABLE.PPOCSI?; 

PROCSTAPLE.PROCSCS; 

200H;  /*set  r?  flag 


ENABLE  IMP.R)*/ 


/*  SET  GLOEAL  LOCK  */ 

DC  WHILE  LOCK SET (OGLO PAL SLOCK ,119 ) J  END? 

IF  PPDS . VPSSPEPSCPU  <  MAXSVPSSCPU  THFN  DO  * 

TEMP  =  PROS  .VPSSPERSCPU  +  PRLS . VPSSTART 5 
VPM(  TFM?  ).VPSID  =  ?R0CSTA3LE.?RCC$ID; 

VPM <  TEMP  ). STATE  =  01;/*  READY  */ 

vpm:  te^p  )  .vpspriority  =  proc stable. ?r ocs ?r i ; 

VPM(  TEMP  )  .EVCS THREAD  =  255; 

V?Mf  TEMP  )  .EVCSAWSVALUF  =  05 

VPM (  TEMP  ).S?SREG  =  PP.0CSTA3LE.PF0CSSP  -  1AHJ 

VPM(  TEMP  ).SS$REG  =  PROC STABLE. PROCSSS  5 

PHDS  .  VPSSPEPSCPU  =  PKDS  .  VPSSPEESCPU  -r  l; 
PRDS.VPSENT  =  PRDS . VPSEND  +  l; 


NESVPSC  PRDS  .CPUSNUMBER  )  = 

NR$V?S(PPDS.CPU$NUM3E?)  *  1J 

end;  /*  EO  */ 

/*  F.FLFASF  THE  GLOBAL  LOCK  */ 
5L0BALSL0CK  =  05 

return; 

end;  /*  CREATF$?BOCESS  */ 


/*09se  V  V  3|S  5)-  n*  n*  K*  ^  *<*  Xji  VV  ^  3{C  ?j»  Ap  ^  *r*  *1'  V  Jp  v  '  *  V  V  'p  ?!'  ^  Jp  '!•  v  v  ? 


'*  INACHA?  PROCEDURE  ROWE  6-22-B4 

/"' - 

/*  GETS  A  CHAR  FROM  THE  SERIAL  PORT.  CHAR  IS  !!!NCTU! 
/*  ECHOED.  THAT  IS  RESPONSIBILITY  OF  USE)  IN  THIS  CASE. 
/*  INPUT  TO  SERIAL  PORT  VIA  SBC861  DOWN  LOAD  PROGRAM  MAY 
/*  NOT  PE  ACCEPTED. 


**/ 

V 

i 

*/ 
*f  / 

*/ 


/*  POINTER  IS  PROVIDED  BY  USER  SO  HE  CAN  BE  RETURNED  THE 
/*  CHARACTER  . 

/* - 

/*  CALLS  MADE  TO:  RECVSCAHR 

/****##***#**  >r  **###**#**  **#*#*#  #*#***##>■£##<!#  sjesjss^a^jjts^sjsj^s^si: 


■■■■/ 
*  i 
-*/ 

*/ 

J 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRA.CE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*  I N$CKAR :  PROCEDURE  {  RET$?TR  )  REENTRANT  PU3LIC  5 

/*  DECLARE 

/*  RET$?TR  POINTER, 

/*  INCHR  BASED  RRT$  PTR  EYTE5 

/*  disable; 

/*  INCHR  -  3SCV$CHAR5 

/*  enable; 


/*  RETURN: 

/*  END;  /*  I N $ C H A ?.  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/* 10 02**** ********************************** *************** / 

/*  INANUM  PROCEDURE  ROWE  6-22-54  */ 

/* - 

/*  GETS  TWO  ASCII  CHAR  FROM  THE  SERIAL  PORT,  EXAMINES 

/*  THEM  TO  SEE  IF  THEY  AFF  IN  THE  SFT  ?.  ?  HEX  AND  FORM, 

/*  A.  BYTF  VALUE.  EACH  VALID  HEX  DIGIT  IS  ECHOED  TO  THE 
/*  CRT.  IMPROPER  CHAR  ARE  IGNORED.  NO  ALLOWANCES  ARE 

/*  MADE  FOR  WRONG  DIGITS.  GET  IT  RIGHT  THE  FIRST  TIME.. 

/*  IF  YOU  ARE  INDIRECTLY  ACCESSING  THE  SERIAL  PORT  VIA 
/*  THE  S3C861  DOWN  LOAD  PROGRAM  FROM  THE  MDS  SYSTEM 
/*  INPUT  m«y  NOT  BE  ACCEPTED.  A  POINTER  IS  PASSED  BY  Ti 
/*  USER  SC  THAT  HE  RETURNED  THE  CHARACTER. 


.-DvCvD.Ov 


,  I  .  *  k  »  —  ^  i  A  .  L  a  ft  _  *  —  ■  k  ft.  ^  k  ^  a  k  ft  .  m 
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/* - */ 

/*  CALLS  MADE  TC:  INSEEX  */ 

/****£*********&******$***:;:****  i^****^*###*#)^  ********  *******  / 


'***  MXTPJ.CE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MX  TRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*  INSNUM:  PROCEDURE  (  RET$PTR  )  REENTRANT  PUBLIC » 

/*  DECLAFE 

/*  ?.  ETS  ?TR  POINTFk, 

/*  NUM  PAS  ED  R3T$PTF.  BYTE  i 


/*  disable; 

/*  NUM  =  INSHEX5 

/*  enable; 

/*  return; 

/*  end;  /*  I N SNUM  */ 

/***  MXTRACE  *****  MXTPACE 
/***  MXTRACE  *****  MXTRACE 


*****  MXTRACE  *****  MXTRACE 
*****  MXTRACE  *****  MXTRACE 


*  s,c  v  J 


*/ 


/* 10 34******* ********* ********************** ******** ******* / 
/ ********* ******* ******************************************  / 


/*  OUTSCHAR  PROCEDURE  RCWE  6-22-04  */ 

/* - *  / 

/*  SENDS  A  BYTE  TO  TEE  SERIAL  PORT  */ 

/* - */ 

/*  CALL  MADE  TO:  SENDS  CHAR  */ 

/  sfs  ;!t  y~  *  *  3.’:  rfr af:  x': ?!«  *  aft  aft  *  aft  y;  aft  af?  aft  *  a';  af:  a":  y;  y»  aft  a'?  a*i  af:  af;  a'r  a1*  a*t  aM  yc  *  s‘:  s*t  Vc  aV  a't  s';  a';  i'r  a'c  s*£  s';  s-  / 


/v#*  MXTRACE  *****  MXTRACE  *****  MXTRACE 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE 
/*  OUTS  CHAP:  PROCEDURE (  CHAR  )  REENTRANT 


*****  MXTRACE  ***/ 
*****  MXT.RA.CE  ***/ 

public; 


/*  DECLARE  CHAR  BYTE; 


/*  disable; 

/*  CALL  SENDS  CHAR (  CH A  f  )? 

/*  enable; 

/*  return; 

/*  end; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE 


* ** v *  m x T R A  C R  ***/ 
*****  MXTRACE  ***/ 


/  *  1 0  7 2 *******  *  *  *  *  *  ******  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * *  *  *  *  *  *  *  *  *  *  s;-. ! 


/* 

/*- 

/* 

/* 

/* 

/* 

/*. 


OUTSLINE  PROCEDURE 


ROWE  6-22-34 


*/ 

- */ 

USING  A  POINTER  TO  A  BUFFER  IT  WILL  OUTPUT  AN  ENTIRE  */ 

LINE  THRU  THE  SERIAL  PORT  UNTIL  »N  IS  ENCOUNTERED  */ 
OR  80  CHARACTERS  IS  REACHED — WHICH  EVER  IS  EIRST.  CR  'S*/ 
AND  LF'S  CAN  BE  INCLUDED.  */ 

- *  / 
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/*  CALLS  MADE  TO:  SEND$CHA3  */ 

/X^XsXtXsX'XsX'XsX'XsXt**#****#**#**:**:**;*##*##^##**’;:**##**#^****###*  / 

/***  MX  TRACE  *****  -MXTRACE  *****  MXTRACE  *****  AX  TRACE  ***/ 

/***  MXTRACE  *****  MXTRACI  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  OUT$LINE :  PROCEDURE (  LINE$PTF  )  FEENTRaNT  PUBLIC  J 

/*  DECLARE 

/*  LINEAPTR  POINTER, 

/*  LINE  BASED  LI NESPTR  (5?)  BYTE, 

/*  II  byte; 

/*  disable; 

/*  DO  II  =  0  TO  79; 

/*  IF  LINE'  II  )  =  '%'  THEN  GO  TO  TONE; 

/*  CALL  SEND$CH  A R (  L I N  E  {  II  )  )? 

/*  fnd; 

/*  DONE:  ENABLE? 

/*  return; 

/*  end; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/  *  1 1  0  4  **************  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * #  #*  ❖  *  >!<  f  >r  £  / 

/*  OUTANUM  PROCEDURE  ROWE  6-22-84  */ 


OUTPUTS  A  BYTE  VALUE  NUMBER  TEPU  THE  SERIAL  PORT 


/*  CALLS  MADF  TO:  OUTSHEX  */ 

/Xt#*##*#^'!###***:**#***#**##**#****##****###******************/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACI  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  CUT$ MUM :  ?ROCEEURE(  NUM  )  REENTRANT  PUBLIC? 

/*  DECLARE  NUM  BYTE ; 

/*  disable; 

/*  CALL  OUT<HEX(  NUM  ); 

/*  ENABLE; 

/*  return; 

/*  end; 

/***  MXTRA.CE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/* 1142**** ************************************************* / 
/*  IN$  DNUM  PROCEDURE  ROWE  6-22-34  */ 


/*  GFTS  FOUR  ASCII  FROM  SERIAL  PORT  TC  FORM  WORD  VALUE 


/*  CM  TIP  I A  »R*  THE  SAME  AS  IN  PROCEDURE  IN$NUM  */ 

/* - */ 

/*  CALLS  MADE  TO:  IN$HEX  */ 


/#*#*#*$*:{:**#****#**:****  sfc*******:*#*#*#**#*********::*##^#*#*  / 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MX TRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  IN$DNUM :  PROCEDURE  (  RET$PTR  5  REENTRANT  PU3LICJ 

/*  DFCLAPE 

/*  RET$?TR  POINTFR, 

/*  INUM  3ASFD  RET$PTR  WORD, 

/*  f H ,  L)  word; 

/*  DISABLE; 

/*  H  =  IN'S  HEX? 

/*  H  =  SHL (  H ,  8  ) ; 

/*  L  =  INSHEX? 

/*  DNUM  =  (H  OR  L); 

/*  enable; 

/*  return; 

/*  end; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/*  H72***************************************************** / 


/*  OUT$DNUM  PROCEDURE  ROWE  6-22-34  */ 

/* - */ 

/*  OUTPUTS  A  WORD  VALUE  NUMEER  VIA  THE  SERIAL  PORT  */ 

/* -  if/ 

/*  CALLS  MADE  TO:  OUT$HEX  */ 


/  #  So  if  $  if  if  if  if  if  *  *  *  ❖  if  if  if  if  *  if  if  *  if  s|<  >jt  #  s(<  #  if  Xs  >i«  %  if  if  if  if  if  if  if  if  if  if  *  if  if  ❖  if  if  if  >!'  if  if  if  if  >|t  >!=  / 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  OUT$DNUM:  PROCEDURE!  DNUM  )  REENTRANT  PUBLIC; 

/*  DECLARE 

/*  DNUM  WORD, 

/*  SEND  eyte; 

/*  disable; 

/*  SEND  =  HIGH!  DNUM  )  J 

/*  CALL  OUT$KEX (  SFND  ); 

/*  SEND  =  LCW (  DNUM  ) J 
/*  C  ALL  OUTiHEX (  SFND  )5 

/*  enable; 

/*  return; 

/*  end; 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
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/#12  ^  5**  W*;#*#**  *>)(  j;:^  >*#1*1;:;;:  5£>It  a;?J'.:  jgtsj:# # 5? : ; ^ s|;  if  J,:  / 

/*  RECVSCHAR  PROCEDURE  ROVE  6-22-54  */ 

/* - - 

/*  BOTTOM  LEVEL  PROCEDURE  ?Hi T  OBTAINS  A  CE*R  F:.OM  THE 
/*  SERIAL  PCRT .  PARITY  EIT  IS  REMOVED.  CHAR  IS  ! I KOT ! ! 

/*  ECHOED . 

/* - 

/*  CALLS  MADS  TO:  NONE  */ 

/$$$#$$ $$$$:!: $$$#$44$$$ $$ sit*  Jjtsic# ## »!« »;«  si* a^t sjs s;j »:« »;« s';s i;: r’r £#:;c#;!;&s!»5;c#::5  f 

/#**  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACS  *****  MXTRACE  *****  MXTRACE  ***/ 
/*  PECViCHAF :  PROCEDURE  BYTE  REENTRANT  PUBLIC  J 


DECLARE 

CHP 


B  V  TE? 


/*  /*CHECK  PORT  STATUS  EIT  2  FOR  RECEI VE-READY  SIGNAL  */ 
/*  DC  WHILE  ( IN?UT( 0DAH )  AND  02H)  -  0?  END  J 
/*  CHP  =  (  INPUT ( 2D9H)  AND  07FH)J 

/*  RETURN  CHR; 

/*  end; 

/***  MX  T?  ^  C  E  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTPACS  *****  MXTRACE  ***/ 


/  *  1  2  4  1  *  *  *  *  *  *  *  ***********  *  *  ■■■  *  #  *  *  tf  >i*  -f  *  *  s-  / 

/*  SEND$CHAR  PROCEDURE  ROWS  6-22-B4  */ 


/*  OUTPUTS  A  BYTE  THRU  THE  SERIAL  PORT.  THIS  IS  NOT  A  */ 
/*  SERVICE  AVAILABLE  THRU  THE  GATEKEEPER  BUT  IT  IS  CALLED*/ 
/*  BY  MANY  OF  THOSE  PROCEDURES.  IT  WILL  STCP  SENDING  */ 
/*  (AND  EVERYTHING  ELSE)  IF  IT  SEES  A  ~S  AT  INPUT.  ~Q  */ 
/*  WILL  RELEASE  THE  PROCEDURE  TO  CONTINUE.  */ 
/*  THE  USER  BEWARE! !!!!  THIS  IS  ONLY  A  DIAGNOSTIC  TOOL  */ 
/*  TO  FREEZE  THE  CRT  FOP  STUDY.  RELEASING  IT  DOESN'T  *./ 
/*  ASSURE  NORMAL  RESUMPTION  OF  EXECUTION.  (YOU  MAY  FORCE*/ 
/*  ALL  BOARDS  TO  IDLE  FOR  EXAMPLE.)  */ 


/*  CALLS  MADE  TO: 

ft *  #  s{«  #  #  i\i  j*c  #  t'  #  t' t'  5j<  #  sje  ❖  #  #  jJc  rje  #  f-  ❖  #  £  s':  ;J?  #  #  jjs  #  #  age  #  #  j{s  jjs  jjc  #  >;*  sjr  aje  t:  t*  #  • 


y<  ^  ;|e  ?’<  ; 


/***  MXTRACE  *****  MXTP 1 CE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*  SEND$CHA? :  PROCEDUPE( CHAR )  REENTRANT  PU3LICJ 

/*  DECLARE  (CHAR, INCUR)  BYTE? 

/*  /*  CHECK  PORT  STATUS  */ 

/*  INCRF  =  (  I NPUT ( 0D5H)  AND  07EH); 


/*  IF  INCHR  =  13?  THEN 
/*  TO  WHILE  (INCHR  <>  11H)» 

/*  IF  ( (INPUT(0DAH)  AND  ?2H)  <>  2)  THEN 

/*  INCHR  =  ( INPUT ( 0BFH )  AND  27  Y H); 

/*  ENEJ 

/*  DO  WHILE  (INPUT(eDAH)  AND  01K)  =  ?:  END; 

/*  OUTPUT (0D6H)  =  CHAR! 

/*  return; 

/*  end; 

/***  MX TRACE  *****  MXTPACI  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXT?.‘CE  *****  MXTP.ACF  *****  MXTRACE  *****  MXTRACE  ***/ 


/ * 1 2  9 3 **********  * *  * *  ##*****# * 
/*  IN$HEX  PROCEDURE 


^  S}t 


%V  *'«  ■'#  j#  ftij 

V  *i*  « *c  «,«  /,*  ^  •,*  >,•  *(• 

OWE  6-22-84 


/* - 

/*  GETS  2  HEX  CHAR  FROM  THE  SERIAL  PORT  AND  IGNORES  ANY- 
/*  THING  ELSE.  EACH  VALID  HEX  DIGIT  IS  ECHOED  TO  THE 
/*  SERIAL  PORT.  A  BYTE  VALUE  IS  FORMED  FROM  THE  TWO  HEX 
/*  CHAR. 


*/ 

V 

*/ 

*/ 

*/ 

*/ 


/* - */ 

/*  CALLS  MADE  TO:  RECV$CEAR  */ 


/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***** 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***** 
/*  iNiFEX:  PROCEDURE  BYTE  REENTRANT  PUELIC; 


MXTRACE  ***/ 
MXTRACE  ***/ 


/*  DECLARE 

/*  AS C 1 1 ( * )  BYTE  DATA  ( '0123456709ABCD2F  ' )  , 

/*  ASCI IH( *)  BYTE  DAT»( '0123456789 ' ,61E, 62H , 63H ,64H , 65K  , 
/*  66H  )  , 

/*  (INCHR,  HEXNUM ,  H,  L)  BYTE, 

/*  FOUND  BYTE, 

/*  STOP  eyte; 

/*  /*  GET  HIGH  PART  OF  EYTE  */ 

/*  FOUND  =  0? 

/*  DO  WHILF  NOT  FOUND; 

/*  /*  IF  INVALID  CHAR  IS  INPUT,  COME  BACK  HERE  */ 

/*  INCHR  »  recv$char; 

/*  H  «  05 

/*  stop  =  0; 

/*  /*  COMPARE  CHA.R  TO  HEX  CHAR  SET  */ 

/*  DO  WHILE  NOT  STOP; 

/*  IF  ( I NCHR=ASC I 1(H))  OR  .'INCHR  =  ASCIIH(F))  THEN  DO; 

/*  STOP  =  0FFH5 

/*  FOUND  =  ?ffh; 

/*  CALL  SENDiCHAR (  INCHR  );  /*  TO  5CHO  I?  */ 

/*  end; 

/*  FLSF  do; 
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/*  5  =  5  +  i; 

/*  IF  R  =  10H  THEN  STOP  =  0FFH! 

/*  END?  /*  ELSE  */ 

/*  END;  /*  DO  WHILE  */ 

/*  H  *  SHL (  H,  4  ) 5 

/*  END;  /*  DC  WHILE  */ 

/*  FOUND  =  0J 

/*  /*  GET  LOW  PART  OF  BYTE  */ 

/*  DC  WHILE  NOT  FOUND  J 

/*  /*  AGAIN  DO  UNTIL  VALID  HEX  CHAR  IS  INPUT  */ 

/*  INCHR  =  recv$char; 

/*  L  =  0EJ 

/*  STOP  =  0: 

/*  DO  WHILE  NOT  STOP; 

/*  IF  (  INCHR=ASCII 'L) )  CP.  ( I NCHR=ASCI IH { L)  )  THEN  DO! 

/*  STOP  =  0FFH; 

/*  FOUND  =  <?FFH; 

/*  CALL  SEND$ CHAR (INCHR) 5 

/*  end; 

/*  ELSE  DO; 

/*  L  =  L  +  i; 

/*  IF  L  =  10H  THEN  STOP  =  OFFEJ 

/*  END?  /*  ELSE  */ 

/*  END;  /*  DO  WHILE  */ 

/*  END;  /*  DO  WHILE  */ 

/*  RETURN  (H  OP  L)? 

/*  END?  /*  INSHEX  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/##*  MXTR'-CE  *****  MXTRACE  *****  MXTRACE  *****  hXTR ACE  ***/ 


/  *  1 3  9 3 **********  *  *  *  *  *  *  **  * *  *  * *  *  *  >!s  •!:  v  #*  if  if  if  s',;  if  if ii  if  if  if  if  if  if  if  if  if  if  *  if  / 


/* 

/*- 


OUTSFFX 


PROCEDURE 


ROWE  6-22 -64  */ 


- - 

/*  TRANSLATES  BYTE  VALUES  TO  ASCII  CHARACTERS  AND  OUTPUTS*/ 
/*  THEM  THFU  THE  SERIAL  PORT  */ 

/* - */ 

/*  CALLS  MADE  TO:  SFND$CHA?  */ 

*******************  X"  ***>:<******■>,<**  *:?*******  / 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/*  OUTSHEX :  PROCEDURE ( B)  REENTRANT  PUBLIC? 


/*  DECLARE  P  BYTE,* 

/*  DECLARE  ASCII (*)  BYTE  DATA  ( '0123456739A3CDE7 ' ) ; 

/*  CALL  SENDS  CHAR (ASCII { SHR ( B ,4 )  AND  0FH)); 

/*  CALL  SENI$CHAR(ASCII (B  AND  0FK  )  )  ? 

•/#  RETURN? 

/*  END? 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 
/***  MXTF: s CE  *****  MXTFACE  *****  MXTRACE  *****  MXTRACE  ***/ 


/  ###  $$$*  If.lytf.'ifii.  if.if.iytf  iyiftf  fc*  t  £###*!**#  sje*#  / 

EMDJ  /*  L2$^CDULE  */ 

/##*#  3,-s*  #  >r  5?  X=  s*####  «Jjt  X**#  #*#5;:#*#$#$  Xt#*#***  *#**>;::(:  X:*  *$>rX<X:  / 

/ififlfififififiylf.iflfififlfififififififlfif.lflfiflfiftflfif-tfifififif'ifitif'tfififtfifif'tflf'tfififififififif.  X‘>?  / 
/  #  a*  $  #  * #  if  *s  s;s *s  X<  X=X=  X<  X<  #Xs  X«  *  *  X<  *  X«  *  X-'  X< £  X<  X<  *  #  X<  X«  X<  X<  X<  X<  X«  *  *  *  *  Xs  *  *  Xs ;.-  *  *  *  *  #  X-  Xs  X: X=  / 
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APPENDIX  E 


LEVEL  I  --  MCORTEX  SOUPCE  CODE 

All  the  LEVEL  I  source  code  written  in  PL/M  is  contained 
in  the  file  LEVEL1.SRC.  It  is  compiled  with  the  LARGE 
attribute.  Two  other  LEVEL  I  functions,  SCHEDULER  and 
INTERRUPT  HANDLER,  were  written  in  AS MSB  and  are  listed  in 
their  owr.  modules.  LEVEL  I  is  one  of  the  relocateahle  '-ode 
modules  in  file:  KCR2.LNK.  It  is  part  of  the  executable 
code  module  in  file:  KORE.  KOP.E  is  the  development  system 
version  of  the  file  KCRE.OPS  loaded  by  MCCRTEX.CMD  under  the 
CP/w-86  operating  system.  This  module  contains  utility 
procedures  used  only  by  the  operating  system.  Two  memory 
maps  of  KORE  (.OPS  ar.i  .TRC)  are  located  at  the  end  of  this 
£.pperdix.  The  maps  come  from  file:  K0EE.MP2  after  compiling, 
linking  and  locating  the  applicable  files.  KCRE.OPS)  is 
Droduced  with  the  code  unaltered.  KOPE(TPC)  is  obtained  by 
removing  and  adding  appropriate  comment  marks  from  the 
indicated  code  before  processing. 


/*£»(?  ^7******************************************  V-**#** :;t  #**::;«  / 

f  !|:  5|:j^  sj: 3|r :|:  i'fi  ;|: :V  £  :|;  :;:  £  s',:  ;;=  :J:  :;t  £  #  *  >|r  ;',t :',:  :|; :,: :;: -r  :|t  :;-.  ;)c>!:  £  *X  ###  -.  %*  >!•' >!->!■  i|; »|: :|:  ;|  / 

/  <s  j(<  if  #  sjt  as  *  *  >;:  $  s,*  >;;  see  sfc  #  V-  ip  ^  :|; :;:  ip jp  5 p  >p ;,:  jp  :r-  -.;;  sp  sp sp  sp  :p  >;«  sp  sp  sp  sp  sp  >;<  sp  sp  :p  sp sp sp  sp  sp  sp  sp  sp  >;:  sp  sp  sp  sp  sp  y 


/*  FILE: 

VERSION : 
PROCEDURES 
DEFINED: 


LEVEL1 .SEC 
ROWE  6-22-S4 

RET$V  P 
C-ETWC  RK 
LOC  ATESSEU 
SAV  E$  CONTEXT 
MCNlTOR$PRCC 


r.DYTHI  S  VP 
LOCATI5EVC 
IDLF<PROC 
GET5SP 


REMARKS : 

WARNING:  SEVERAL  OF  TEE  LITERAL  DECLARATIONS  5ELCW 
EAVE  A  SIMLA?  LEANING  IN  OTHER  NODULES  .  THAT  MIN¬ 
ING  IS  COMMUNICATED  ACROSS  MODULES  BOUNDARIES.  BE 
CAREFUL  WHEN  CHANGING  THEM. 

*/ 

/spspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspspapspspspspspspspspapspspspspspspspspspspspspspsps;:  / 

Ll$MODULE :  DO; 


/  ^  0  3  2  S ''  5*C  5*  5‘c  5*' 5 s  'z ^ ;,{  3,c  X;  5':  X*  X*  X*  X*  X?  X<  X* X:  3jt  X^  Jjc 5*,i  5^  >J<  X: X‘ 3|c  5|: >Jc  sjc  jc  afc  i’,<  $ X:  ;Jc  5*<  ij;  / 

/  *  #  * # #  5,'  <8  X-  *  X* X*  #  *  *  * ft# $###$#  X<  X* X<  ft  ft  X-  X<  X'  X'  X< X<  ft  * X' X‘  ft  X;  X< X?  ft  X* ft  3*  X«  V  X<  Xi 3;: X'  3^  >;<  >;c / 

/■■  LOCAL  DECLARATIONS  */ 


DECLARE 


MA X$  CPU 

LITERALLY 

'10 

MAX^VPS iCPU 

LITERALLY 

'10 

MAX*C?U$5$MAXiVPS$CPU 

LITERALLY 

'100 

FALSE 

LITERALLY 

'0 

READY 

LITERALLY 

'1 

RUNNING 

LITERALLY 

'3 

WAITING 

LIT-RALLY 

'? 

TRUE 

LITERALLY 

'119 

NOT$  FOUND 

LITERALLY 

'255 

PORT  ACO 

LITERALLY 

'00C0H 

P0P.TSC2 

LITERALLY 

'00C2H 

PCRTACE 

LITERALLY 

'00  CEE 

POET iC A 

LITERALLY 

'00C  A.H 

RESET 

LITERALLY 

'0 

I NT$ RETURN 

LITERALLY 

'775 

^CORTEX  MCOPTEX 

/**>!**  MCORTEX  J|! ^ ^  MCORTEX 
IDLEAST ACK$SFO 
I DLE$STACE$ARS 
INITASTACKSSEG 
INlT$STACr AAPS 

“CORTEX  MCORTEX 

/***>;•  MCORTEX  ****  “CORTEX 
/!|:*!—  MXTRACE  <=***  MXTRACF 


*****  MCORTEX  ***- 
“CORTEX  **** 
LITERALLY  'PC8CH ' , 
LITERALLY  '0C80^H', 
LITERALLY  '0C8bH', 
LITERALLY  '0CB8OH'; 


MCORTEX  ****/ 
MCORTEX  ****/ 

/********/ 


>i-.v:'r=<:*  MCORTFX  ****  MCORTEX  ****/ 


*****  MCORTEX  ****  MCORTEX  ****/ 


*****  MXTRACE  ****  MXTRACE  ****/ 
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'*  V?r(  INDEX)  .ST*?E  =  WAITING.* 

/*  CALL  VPSCHEDULER:  /*  N 0  RETURN  */ 

/*  end;  /*  if  */ 

/*  TO  TO  LCO^>; 

/*  END;  /*  VG  N I  TOR  PROCESS  */ 

/*”**  MXTRACE  ****  MXTRACE  *****  '“’X TRACE  ***=■  EXTRACT 
fw  x  T  -  A  C  T  ****  MXTCJCE  *  *■-  i-  i--  -f  MXTRAC'7  ****  MXT^^CE 


t  k-  >:■•  i-  / 


/ ^ 0 9 ^ 5 5«: 3‘c ;'s 5>: ^ j;: 3J; :'c  ■  ....  ,  .  .....  ....  .  .  ....  ...... .... ..... ., . 

/  #  $  v  ^  $  #  #  *:  age  ?>:  #  v  #  3|c  #  3^  >;c  3;:  #  >;s  3;:  >;c  >,*!  3J:  3;:  $.  $  3*,t  3|<  3j5  a;t  3j;  sp  3;:  3,:  3,’c  3);  :J;  3,".  3/*  3)c  $ j;:  3 

/*  STARTING  POINT  OF  THE  OPERATING  SYSTEM 

/* - 

/*  ROUTINE  INITIALIZES  THE  OS  AN T  IS  NOT  REPEATED. 

/  *  *:  if  i|:  j;t  & i;  sti s’,:  s,1;  s|:  #  a ;:  ;)t if  V  *  V  it  f-  a  ;■  i<  if  i-  i‘V  if  a?  if  if  '-f  VV*  if  if  if  if  i  if  >?  if  if  ■ f  if  if  if  if  V  / 
/if  if  if  :f  if if  aj(  if  'f  !f  :f sf  a,';  ;,'c  :f  if  if  if  f:  if  ^  ajc  j,\-  V;  £  a^.  J|;  if  it  if  if  if  V  V  V  if  :f  a 


if  it  if  if  if  V-  if  if  if  if  if  if  V  *  V  i-  / 


/*  TC  INITIALIZE  THE  PEPS  TABLE  FOP.  THIS  CPU  */ 

PE  CL  ARE  CPU$?T-  POINTER  DATA  (OPKDS  .C?U$NUMBER  )  , 

ZZ  eyte; 

disables 

/**:;:*  m x T ?  fl C F  if # if  EXTRACT  KXTRACF  PXTPAC  £  sp#v«/ 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  TRAC 7  ***" 
/*  CALL  CUT$LINE(RMSG12) ? 

/  if  if  v  i-  EXTRACT  ****  MXTR.ACF  v*"**  MXTRACE  **’,‘*  MET  PACE  *** 
/****  MXTR ACr  ****  MXTRACE  *****  MXTRACE  ****  RETRACE  *** 

'■■■  INITIALIZE  P  ?  I  AND  ?  I  C  */ 

CUTPUT(  POETiCE)  =  OCOKJ/*  ?PI  -  MICF.OPOLIS  +  MCCPTEX  */ 
OUT?UT/?ORT$CZ)  =  13H5  /*  PIC  -  ICtfl  -  EDGE  TRIGGERED  */ 

OUTPUT ?0RT$C2 )  =  42PJ/*  PIC  -  ICS»’2  'VECTOR  TABLE  A  TIRE  SB 
OUTPUT ( P0RT5C2 )  =  ?FH. /*  PIC  -  ICW4  -MCSBU  MODE.  AUTO  EG  I 
OUTPUT  •  PO?.T$C  2)  =  0AFHJ  /*?IC  -  MASK.  ALLOWING  INT.  4  &  6 

/*  ESTABLISH  UNIQUE  SEQUENTIAL  MUMPER  FOR  THIS  CPU  */ 

/*  SET  GLC?AL$LCCK  */ 

DO  WHILE  L0CF$SET(OGLO3AL$LOCX,119);  END? 

PHDS  .CPUSNTJMF ER  =  CPU$INITJ 
CPU^INIT  =  CPUtlNIT  +  I? 

/*  RELEASE  GLOBAL  LOCK  */ 

GLOE ALSLCCK  =  ?; 

/*  SET  UP  INITIAL  START  AND  END  FOR  PRCC  TABLE  */ 

PFDS  .  VP  AST  4  RT  =  PJ 
DC  ZZ  =  1  TO  DRDS .CPU$NUM?ER ; 

P?DS  .  V  ?*  ST  ART  =  PRDS . VPiSTART  +  MAXSVPSSCPUJ 
END! 

/****  MCCRTEX  ****  MCORT7X  *****  MCORTFX  ****  MCCI.'TEX  *** 
/****  MCC’TEX  ****  '"CORTEX  *****  MCORTEX  ****  MCCRTEX  *** 


?TR  =  PTR3 ; 

/*  C U r  F F T  C0NTFVT5  SHOULD  NO*  3a  A  7  *  IL ABLE  ::/ 
TALL  GUT  $  NUM ( CO  N  T : N  T  S )  ! 

LOO?  2  =  TRUE; 

DC  WHILE  LC0P2  =  TRUE! 

DO  WHILE  (  IMCHHO  ',  '  J  «\D(  '  ') 

AND( I  NCHR  OCR  )  ; 

CALL  I N  $  C  H  A  R  (  0 1 N  C  r  r  )  * 

end; 

IE  (INCH?  =  CM  THEN  L00P2  =  FALSE; 

IE  (INCH?  =  MM  THEN  DO? 

/*  SHI?  THIS  ADD R  AND  50  TO  NEXT  FOR  SU3  ’-/ 
CALL  OUTSCHA  ?.  (  CR  )  ; 

CALL  0UT$  CHAR ( LE ) J 
£ DDR  .OFFSET  =  'DDE. OFFSET  +  i; 
ptr  =  pt?  3 ; 

CALL  0  U  T  $  D  N  U  M ( A  E  P  R . 3 A  S  E  )  5 
CALL  OUTS  CHAR (  's'); 

CALL  OUTS  DNUM'APDR.  OFFS  FT  ) 

CALL  CUTS  CHAR ( 

C4LL  OUTS  NUM(  CONTENTS  )  ; 

END ;  /#  IF  SHI?  FOR  NEXT  SUP  */ 

I?  (  INC  HR  -  '  ')  THEN  EG? 

CALL  OUTS  CHAR  v  '  '  ); 

CALL  I N  SNUM ( ^CONTENTS  )  ; 

DO  WHILE  ( I NCRRO  Ci  )  AND  ( I  NCHR  O  MM? 

C 4 LL  INSCHAR1!  OINCHR  )  ; 

D  ? 

IF  (INCUR  =  CM  THEN  L00R2  =  FALSE; 

if  ( i nchr  =  then  do; 

C  A  LL  OUTSCH4?.  (  MM; 

ADDR.OFFSFT  =  ADDR. OFFSET  +  l; 

?TR  =  PTR3? 

C  ALL  OUTSCH  !F.  (  CR  )  J 
CALL  OUTS  CHAR ( IF  )  J 
CALL  OUTSLNUM  (  ADDR  .  BAS  E  )  5 
CALL  OUTSCH 4 7  (MM? 

CALL  OUT$DNUM( ADDR . OFFS  FT) ; 

CALL  C UTSCHAR (  M  ? 

CALL  CUTS NUM' CONTENTS  ) ; 

^ND;  /*  IF  50  TO  NEXT  ADDR  V 
F NT ?  /*  IF  CHANGE  CONTENTS  */ 

I  NCHR  =  'X';  /*  REINITIALIZE  CKD  */ 

END!  /*  LOOP,  CONTINUOUS  SUE  CMD  */ 

end;  /*  sups r itu te  command  section  */ 


IE  'INCHF='E')  01  f  I  NCH  H  =6  =  H  )  THEN  DO; 

/*  FIND  OUT  WHICH  VPS  IS  RUNNING  'ME'  */ 
INDEX  =  RETS  V?; 

/*  NOW  FLOCK  SELF 

disable; 

P? DS  .LASTS  7 UN  =  INDEX; 


/* 

/* 

/* 

/* 

/* 

/'•' 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/+ 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

f* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 


IF  ( INCH  -  =64 H )  OF  (INCEF  =  65H)  OP  (IMCHF.=73H)  THEN 
V  -IID$  Cv£  =  F F H 5 

IF  VALIDSCMI  -  fiFFfl  THIN  CALL  CU?$CHAR(  INCH!? )  i 
END;  /*  DO  WHILE  */ 

IF  (INC  HR  =  'D')  OF.  'INC4?.  =  64H)  THEN  DO ; 

/*  DISPLAY  COMMAND  SECTION  */ 

CALL  INSDNUM  ( CAADDR  .BASE)  I 
CALL  OUTS CHAR 

CALL  I NSDNUM ( OADDR .OFFSET ) 5 
?TK2  =  oadde; 

PTH  =  PTR3; 

/*  CONTENTS  SHOULD  NOW  EE  SET  */ 

DO  WHILF  ( INC  HR  OCR  )  AND  ( I  NCHP023H  ) ! 

CALL  INSCHAR (OINCHR ) ; 

END?  /*  DC  WHILE  */ 

IF  INC HP  =  C?  THEN  DO; 

CALL  OUTSCHAR (  )J 

CALL  OUT$NUM( CONTENTS); 

CALL  OUT$CHAR(CR); 

CALL  OUT SC EAR ( LF ) • 

END;  /*  IF  NORMAL  1  ADD?  DISPLAY  */ 

IF  INCHR  =  23 H  THEN  DC; 

COUNT  =  ej 
C  ALL  OUTSCHAR (  '**'); 

CALL  INSNUMOOUANTITY); 

DO  WHILE  QUANTITY  >  DJ 
C  SLL  OUTSCHAR (C?)J 
CALL  OUTSCHAR ( LF ) • 

CALL  OUT$DNUM( ADDR.HAS3) ; 

CALL  OUTS CHA? ( ' ); 

CALL  OUTSDNUM{ A  DDR .OFFSET ) i 
LI NECOMPLET  E  =  FALSE! 

DO  WHILE  LINECOMPLETE  =  FALSE; 

CALL  OUTSCHAR ( '  ')  ; 

CALL  OUTSNUM' CONTENTS ) ; 

ADDR .OFFSET  =  ADDR. OFFSET  +  1? 

^TR  =  PTR3J 

QUANTITY  =  QUANTITY  -  i; 

IF  (  (ADDR  .OFFSET  ANT  00S?FH)  =  0'  OR 

(QUANTITY  =  ?)  THEN  LINECOMPLFTP  =TRTJ1.  J 
END!  /*  DO  WHILF  LINE  NOT  COMPLETE  */ 

END;  /*  DC  WHILE  QUANTITY  */ 

END!  /*  IF  MULTI  ADD'  DISPLAY  */ 

END;  /*  DISPLAY  COMMAND  SECTION  */ 

IF  (  I NCHR=  'S ' )  OR  '  INCH:-=73H';  THEN  DO; 

/*  SUBSTITUTE  COMMAND  SECTION  */ 

CALL  I NSDNUM ( (A  ADDR  .EASE); 

CALL  OUTSCHAR (':')» 

C  ALL  IN  SDN UM  (  OA  DDP  .OFFSET  )  J. 
r ALL  OUTSCHAR ; 


/*  ?T?.2  =  ,»ader;  _  1 
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CALL  TI  C  25?  ); 

end; 

/*«**  MXTRACE  ****  MXTRACE  *****  EXTRACT  ****  MXTRACE  ** 

/****  mxtr. ace  ****  mxtracf  *****  extract  ****  mxtrace  ** 

/*  CALL  OUTSLINE (PMSSll ) 5 

/**#*  *XTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ** 

/****  MXTRACE  ****  *X TRACE  *****  MXTRACE  ****  MX  TRACE  ** 

PFDS  .  COUNTFr:  =  PP.DS  .  COUNTER  +  1 ! 

co  to  loop; 

end;  /*  IDLESPROC  */ 


/*? 7 5 9** ************************** ********************** 
/*  MCNITC?.  PROCESS  ROWE  6-22-64 


/*  THE  MONITOR  PROCESS  IS  INITIALIZED  BY  THE  C'S  LIKE 
/*  INIT  5 ND  IDLE.  IT  K*S  THE  RESERVED  ID  OF  OEFH  AND  A 
/*  PRIORITY  OF  OH.  IT  IS  ALWAYS  BLOCKED  OR  WAIT  INS  UNT 
/*  IT  IS  PREEMPTED  BY  TFF  USER. 


/*  CALLS  VADE  TO:  OUT$LINE  OUT$CHA?  */ 

/*  OUTSDNUM  INSDNUM  */ 

/*  INSNUM  */ 

/*  **  tf*##  t-  Sr  ****  V  #  *  ##  =r  s;:*#***  as**###*#*###  V  V  *1'  / 

/****  MXTRACE  ****  MX  TRACE  *****  MX!  RACE  ****  M  XT  RACE  ****-/ 

/****  MXTRACE  ****  VXTRA  CF  *****  MXTRACE  *****  MXTRACE  ****/ 

/*  MCNITOR  $?ROC :  PROCEDURE  REENTRANT  PUBLIC  J 
/* 

/*  DECL'EF 

/*  PTR  POINTER, 

/*  PTR2  POINTER, 

/*  PTR3  BASED  ?TR2  POINTER, 

/*  A  DDR  STRUCTURE  (OFFSET  WORD,  EASE  WORD), 

/*  CONTENTS  BASED  PTR  BYTE; 

/*  DECLARE 

/*  ~ ( LINECCMPLETE ,  LC0P2 )  BYTE, 

/*  ( QUANTITY ,  COUNT)  BYTE, 

/*  (INC^R,  INDEX,  VALIDSCMD)  BYTE; 

/*  LOOP:  VALIDSCMD  =  O? 

/*  CALL  OUTSCFAR'CE); 

/*  CALL  CUTSCRAR'LF); 

/*  CALL  OUTSCH1? ( ' . ') J 
/*  DC  WHILE  NOT  VALIE$CMD; 

/*  CALL  INSCHAR( PINCH h); 

/*  IF  fINCHR  =  ' D ')  OR  'INCFR  =  'S')  OR  .INCHR  -  'Z')  T'JEN 
/*  VALIDSCMD  =  OFFH; 


ENr;  /*  WFI I?  *7 

IF  ( MATCH  =  TRUE)  THEN  ECJ 


MXT-ACF  X=X»X:X* 

MXTRACE 

*  >f  v  %-  & 

VXTR  ace 

if  -f  V  V 

MXTRACE 

X--X«XtX!  / 

/  x*  Xs  *  >:■-  MXTRACE  *  * s;:  * 

MXTRACE 

if  if  iff:  }f 

MXTRACE 

j,:  r  •  *(t 

VXTEACZ 

x«x=*  / 

/*  CALL  OUTALINEf 

0MSG23  ) ; 

/*#**  MXTRA.CF  **** 

MXTRACE 

v  X*  *•'  ».J  »r 

MXTRACE 

*r  v  ^ 

EXTRACT. 

'r  *»*  A' / 

/^vxs*  vx TRACE  ***# 

MXTRACE 

mxtrac ? 

X;  X:  X<  X: 

MXTRACE 

'■■  *  ■■  / 

RETURN  SECTILSINDEX; 

end;  /*  IE  */ 

ELSE  do; 
vjtr.ACI 

MXTRACF 

Xs  X<  X;—  Xs 

MXTRACE 

ifififif 

MXTRACE 

X-  X*  V  x<  / 

/t «xsxsx*  MXTRACE  x-- x=  - x= 

MXTRACE 

Xs  #  &  # 

MXTRACE 

i|:  ajt 

MXTRACE 

*  X:  Xs  / 

/*  CALL  CUTS  LI NF ( 

0MSG24  )  J 

/##*#  MXTRACE  **** 

MXTRACE 

#XtX:*-X« 

MXTRACE 

X'X'-X'X' 

MXTRACE 

•r  A~  V  f 

/##*#  VXT- ACE  tfx*#* 

MXTRACE 

#  Xti  :,*c  a;.*  ajt 

MXTRACE 

if  if  if-  X 

MXTRACE 

s':  a,s  ;J-.  ajs  ^ 

RETURN  not* found; 
end:  /*  ELSE  V 

ENT;  /*  LOCATES  SEC  PROCEDURE  */ 


98 *9“ 541  ^ ^ ^ *:* X*5>C=  x=a{s *1* »>E =4« ac« 5(« >!s  V  SX'XsX^XsX^XsXiXsiKJ.sXUrX^XsX*  / 
Xs* *#$# $#X«X«X< ###X«X«>fcX<>S<#>rX«X:s!tX'»rX'Xti{s50‘X‘X«Xss!tSrX«:rX«XsX‘X;X«*S<X<X!X<X'XsX:X<X«  / 


/*  SYSTEM  PROCESSES  >V 

/*  >v 

/*  IDLE  PROCESS  RCfcfc  6-22-64  */ 

/* - v/ 

/*  THIS  PROCESS  IS  SCHEDULED  IF  ALL  CTfcS->  PROCESSES  IN  */ 
/*  THE  V?M  ASF  BLOCKED.  THE  STARTING  ADDRESS  IS  PROVIDED*/ 
/*  TO  THE  IDLE5STACK  AND  PLACED  IN  PP.DS .  IDLE5D2R .  A  ’7 
/*  COUNTER  IS  INCREMENTED  ABOUT  EVERY  SECOND.  THE  COUNT  5V 
/*  IS  MAINTAINED  IN  THE  PRDS  TAELS  AND  IS  A  ROUGH  MEASURE*/ 
/*  CE  SYSTEM  P5RFORMANCr  BY  GIVING  AN  INDICATION  07  THE  */ 
/*  AMOUNT  07  TIME  SPENT  IN  THE  IDLE  PROCESS .  <7 

/* - */ 

/*  CALLS  VADF  TC:  PLM86  PROCEDURE  'TIME '  */ 

/*  OUTUINE  */ 


/*  >?*:  XtX;X«X'  if  if*  if  if  If -tf  if X'-X<  X^X*#  *X=X:Ji<X'frX'XsX*X;X!X::i<X=*X‘X<X«X'-X:VSrX:X:X‘Xf=}:X‘’rXsX:  / 

IDLESPROC:  PROCEDURE  REENTRANT  PU3L I C  » 

DECLARE  I  3YTF; 


flfiftftf 

MX TRACE 

##*#  MXTRACE 

X«Xs>t=X'Xt 

MXTRACE 

#X:«X- 

MXTRACE 

x*  x*  X1  Xs  i 

ftfvf.t  MXTRACE  ****  MXTRACE 
/*  CALL  CL'TSLINE;  OMSG10)  ; 

X6  X^  X<  X;  X* 

MXTRACE 

X^X<X=X: 

MXTRACE 

if.  if  if  if  / 

- 

/x«x=x-:: 

MXTRACE 

x--x:^«  MXTRACE 

X«X«X!X=X' 

MXTRACE 

a{j  V  ajx  ajc 

MXTRACE 

if  if  if  if  / 

MXTR  »CF 

*#*#  MXTRACE 

MXTRACE 

a^aj;^a;c 

MXTRACE 

Sfifiytf j 

/* 

DELAYS 

ONE  (1)  SECOND  */ 

LOOP:  DO  I  =  1  TC  4?J 


,  ’  4  •  ,  '  .  "  «  ^  ^  «  *  a  m  a  "  •  *  ■ 


.  f. 


.N  ,  ( 


11? 


t-uf; 


MATCH  = 

ELSE 

EVCTBL$ I NDEX  =  FVCT3L$  I  NDEX-1  ; 
END?  /*  WHILE  */ 

/*  IF  HA VF  FOUND  THE  FVFNTCOUNT  */ 


IF  ( MATCH  =  TRUE)  THEN  DO; 

/*  RETURN  ITS  INDEX  IN  THE  SVCiTBL  */ 


/****  MXTRACE  **** 

MXTRACE  ***** 

MXTRACE 

^  Jr 

MXTRACE 

*»•  *5*  n*  ^ 

/****  MXTRACE  ** ** 

MXTRACE  ***** 

MXTRACE 

*v  ***  i* 

.MXTRACE 

'i'  V  'r-  Y  / 

/*  CALL  OUT SLI MS( 

/****  MXTRACE  **** 

0MSC23 ) ; 
MXTRACE  ***** 

MXTRACE 

**** 

MXTRACE 

Y  J|^  V  Y  y 

/***#  MXTRACE  **** 

MXTRACE  ***** 

MXTRACE 

**** 

MXTRACE 

****/ 

RETURN  FVCTBLA INDEX? 

end; 

else  do; 

/*  RETURN  NOT  FOUND  CODE  */ 
/****  MXTRACE  ****  MXTRACE  ***** 

MXTRACE 

**** 

MXTRACE 

****  / 

/#«?¥  MXTRACE  **** 

MXTRACE  ***** 

MXTRACE 

***  V 

MXTA 4  C  E 

****  / 

/*  call"out$line( 

/**?x=  MXTP.ACE  **** 

(AMS  024  )  5 
MXTF.ACE  ***** 

MXTRACE 

*  if  * 

M.XTR  4CE 

*  V  *  v  / 

/****  MXTRACE  **** 

MXTRACE  ***** 

MXTRACE 

**** 

MXTRACE 

*  *  *  *  / 

return  not$?ound; 
end;  /*  FLSF  */ 

end;  /*  LOC ATF5EVC  PROCEDURE  */ 


/*  05 37« *** ** *  *o**t>;«*>:s*#Xi**  ******  V***#*  **#***#****:?:(«*«*»)!  »:<*****  / 

/*  LOCATF$SFO  PROCEDURE  POfcE  6-22-84  */ 

/* - - */ 

/* 

/* 

/*- 
/* 


FUNCTION  CALL  TO  RETURN  THE  INDEX 
SPECIFIED  IN  TH?  SEQ-TAELF. 


OF  THE  SEQUENCE) 


*/ 

*/ 

-*/ 

*/ 


CALLS  MADE  TO;  OUT$LINF 


^ft*****#*##*####**##****#######*##***^***#**  **#,,,****  ****«<*/ 


LOCATE$SEOs 


PROCEDURE ( S  E05NAME ) 


BYTE  REENTRANT  PUBLIC? 


DECLARE  SEQ$N AME  BYTE? 
DECLARE  (  MATCH,  SEOTBLS 
/+#**  MXTP.ACE  ****  MXTRACE 
/****  MXTFACE  ****  MXTRACF 
/*  CALL  0UTSLINE(@MSG22) ; 
/****  MXTP.ACE  ****  MXTRACE 
/****  MXTFACE  ****  MXTRACE 


INDEX 

)  byte; 

*  v  *  *  * 

MXTRACE 

****  MXTRACE 

***** 

MXTP.ACE 

****  MXTRACF 

***** 

MXTRACE 

****  MXTRACE 

***** 

MXTP.ACE 

****  MXTP.ACE 

;Jt  V  V  ^ 
*  / 

•y  *r  V  S,*  y1 

f 


MATCH  =  FALSE? 

SEOTBL$INrEX  =  25 

DO  WHILE  (^ATCH  =  FALSE)  AND  ( SECT3L$IN'DEX  <  SEQUENCERS )  J 
IF  SEQ$N AME  =  SFOSTABLE ( SEQTEL$I NDEX )  . SEQ$NAME  THEN 
MATCH  -  TRUE? 

TL5  E 

S  FCTBLS INDEX  =  SEQTBL5INDEX  +  l; 
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•  •  v  V 


/  V '.*.v 


END;  /*  DC  LOOP  SEARCH  OF  VPM  V 


/*  SET  SELrCTED  VIRTUAL  PROCESSOR  */ 
VPM{ N). STATE  =  RUNNING? 

SELFCTEDSDB?  =  V?M  (  N )  .  SS $R  EC-  ,* 


/***#  MX  TRACE  ****  MXTRACE  *****  MXTRACE 
/*•**  MXTRACE  ****  MXTRACE  *****  MXTRACE 
/*  CALL  0UT$LINE(0MSG7A) J 
/*  CALL  OUTSHEX(N); 

/*  CALL  OUTSCHAR(CR); 

/*  CALL  OUT$CHAR(LE) J 
/*  CALL  OUT$LINE((?MSG?B); 

/*  CALL  OUTSDNUM(SELECTEDSDER  )J 
/*  CALL  OUTSCHAR(CR); 

/*  CALL  CUT$CHA?(LE); 

/****  MXTP.ACE  ****  MXTRACE  *****  MXTRACE 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACE 


****  MXTRACE  ****/ 
*#**  MXTRACE  ****/ 


****  MXTRACE  ****/ 
****  MXTRACE  ****/ 


RETURN  SELECTEP$DBS» 


END?  /*  GETWORE  PROCEDURE  */ 


/  *  0  5 6 0 ******  *  ************************************  *******  *  **  / 
/*  LOT ATE$EV C  PROCEDURE  ROWE  6-22-54  */ 

/* - */ 

/*  FUNCTION  CALL.  RETURNS  THE  INDEX  IN  EVENTCOUNT  T*BLE  */ 
/*  OF  THE  EVENT  NAME  PASSED  TO  IT.  */ 

/* - */ 

/*  CALLS  MADE  TO:  CUT$CHAR  CUTSLINE  */ 

/ft**********************  ********  **************  ******  *******  / 


LOCATES EVC:  PROCEDURE ( EV  ENT $  NAME )  BYTE  REENTRANT  PUBLIC; 

DECLARE  EVENTS  NAME  BYTE; 

DECLARE  (“ATCH.EVCTELSINDIX)  BYTE! 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/*  CALL  CUTSLINE ( ?MSG20) J 

/*#**  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/****  EXTRACT  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****•/ 

MATC H  -  FALSE? 

EVCTELSINDEX  =  e? 

/*  SEARCH  DOWN  THE  EVENTCOUNT  TABLE  TO  LOCATE  THE  */ 

/*  DESIRED  EVENTCOUNT  BY  MATCHING  THE  NAMES  */ 

DO  WHILE  (MATCH  =  F»LSE)  *ND  ( FVCTBLSINDEX  <  EVENTS); 
/*  DC  WHILE  HAVE  NOT  FOUND  THE  EVENTCOUNT  AND  HAVE  NOT  */ 

/*  REACHED  END  OF  THE  TABLE  */ 

IF  EVENTSNAME  =  EVCSTBLv EVCTELSINDEX  ) . SVC  $ NAME  THEN 
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1  •  ~ '•  "j ^ 


-A  >  \ 


.N  wV 


/*f4 so****************** ************** ****** ********  ###«***/ 

/*  GETASP  PROCEDURE  ROWE  2  APR  64  */ 

/# - *.-  / 

/*  RETURNS  STACK  POINTER  CE  CURRENT  RUNNING  PROCESS  AS  */ 
/*  SAVED  IN  THE  VIRTUAL  PROCESSOR  MAP  */ 

/* - if/ 

/*  CALLS  MADE  TO:  RET$V?  */ 

/  If.  j*i(c  ##  *tsfc  #  ###  if  Jits*##**##  s|t  $$$$:;:  #3:$$  $>£#>:<  >|c  >|t  s;:  #  a(t  ajtsy  j|es^#>;t:;s#  / 

GET$ SP:  PROCEDURE  WORD  REENTRANT  PUBLIC; 

DECLARE  N  PYTE! 

N  =  RET^VP;  /*  GET  CURRENT  RUNNING  VIRTUAL  PROCESSOR  */ 
RETURN  YPM( N ) . SP$REG *  /*  RETURN  NEW  VP  ST*CK  POINTER  */ 


/  * 0  4 9 8 *****  *  *  *  *  *  *  *  #*  *  *-■  '-'*f  *  #  #  <S  #  #  ❖  ❖  >!= tfcs.':##  **  s|t>::v  *  *  >: i,t#  sit*  *  *  *  *  *  / 


/*  GETWOtK  PROCEDURE 


ROWE  6-22-6 A  */ 


/*  DETERMINES  THE  NEXT  ELIGIBLE  VIRTUAL  PROCESSOR  TO  RUN  */ 

/* - */ 

/*  CALLS  MADE  TO:  CrJT$CHAR  CUT$LINE  OUTSDNUM  */ 

/  if  **  Xf  *  sjt  *******  Jjt  *  *  *  **  *  ***  >:«  ******  #  *  ***  *  *  »|t  ****  >|c  *  JfV  ****»;:  sjt  **  *  sp  / 

GETWORK:  PROCEDURE  WORD  REENTRANT  PUBLIC; 

DECLARE  (PRI.N.I)  BYTE? 

DECLARE  SELECTSDSDBR  WORD; 

DECLARE  DISPLAY  BYTE? 

/****  ^ixTPACF  ****  MXTFACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/***v  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/*  CALL  OUT$LINEOMSG?)J 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MX TRAC  ?  ****/ 

PRI  =  255? 

DO  /*  SEARCH  V?M  FO*>  ELIGIBLE  VIRTUAL  PROCESSOR  TO  RUN  */ 
I  =  PP.DS  .  VP$START  TO  PRDS  .  VP$E:N D5 
IF  /*  THIS  VP'S  PRIORITY  IS  HIGHER  THAN  PRI  */ 

( (V?M(I ) .VP$?RIORITY  <=  PRI)  AND 
(VPM{I ) .STATE  =  READY))  THEN  DO? 

/*  SELECT  THIS  VIRTUAL  PROCESSOR  */ 

PRI  =  VPM(I) . V  P  S  PR I  OR I T  Y  J 
N  =  I? 

end;  /*  if  */ 


/  V*  . 
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/*?’4  v#j;«  w#v  / 


/*  RDYTHI SVP  ?ROCEDUR?  ROVE  6-22-64  */ 

/* - if/ 

/*  CHANGES  A  VIRTUAL  PROCESSOR  STATE  TO  READY  */ 

/* - - */ 

/*  CALLS  MADE  TO:  OUTSHFX  OUT$CHAF  */ 


/  iftfifififififlflfifififififltitififittfififlfiflflttfifififlftfiflfit  if*,  ifififif  if* 

RDYTHIS VP:  PROCEDURE  REENTRANT  PUBLIC? 


!  if  if  if  if 

MXTRACE 

MXTRACE 

if  if  it*  if 

MXTRACE 

ifififif 

MXTRACE 

*.***/ 

/it  it  if  it 

MXTRACE 

ifififif 

MXTRACE 

if  ifififif 

MXTFACE 

if  if*  if 

MXTFACE 

ifififif  / 

/*  CALL  OUTSLINE  ((AMSG4  )  ? 

MXTFACE 

ififttif 

MXTFACE 

it  #  ttit  if 

MXTRACE 

iftfifit 

MXT“ ACE 

ifififif  / 

MXTRACE 

ifififif 

MXTRACE 

MXTRACE 

if  if  if* 

MXTRACE 

v  *{{  ^  ^  y 

PRDS .LASTSRUN  = 

RET  SVP? 

/*  SAVE  THIS 

PROCESSOR  INDEX  */ 

/if  if  if  it 

MXTRACE 

ifififif 

MXTRACE 

if  if  **.  if 

MXTRACE 

MXTRACE 

if  if  if  if  J 

/**** 

MXTRACE 

iftfifit 

MXTRACE 

ifififif  if 

MXTRACE 

MXTRACE 

ifififif  / 

/*  CALL  OUT$LINE((?MSG4A) ? 

/*  CALL  OUTS3EX ( PRDS . LASTSRUN ) ? 

/*  CALL  OUTS  CHAT  ( CK ) ? 

/*  CALL  OUTSC HA R ( LF  )  ? 

/♦***  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/ 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  #***/ 
V?M( PRES .LASTSRUN) .STATE  =  READY? 

RETURN? 

END?  /*  RDYTHI SVP  PROCEDURE  */ 


/*?441 ********************************************** ******* / 
/*  SAVECONTEXT  PROCEDURE  ROVE  2  APR  64  */ 

/* - */ 

/*  SAVES  CURRENT  STACK  POINTER  AND  SEGMENT  IN  7PM  */ 

/* - */ 

/*  CALLS  MADE  TO:  F.ETSVP  */ 

/  *e  #  $  sj?  #  * # 3j!  *  *  £  #  #  #  #  #  3><  i(t «  * *  >?t  *•.  it  *< $  *  #  *  if  if  if  if  if  if.  it  $  *  if  if  if  -if  it  if  if  if  *  *  if  sj:  if  it  / 

SAVECONTEXT:  PROCEDURE  (STACKSPTR ,  STACKSSEG)  REENTRANT 

PUBLIC? 


DECLARE  (STACKSPTR,  ST ACKSSEG )  WORD? 


IF  PRDS .LASTSRUN  <>  255  THEN  DO?  /*  IF  ENTRY  IS  NOT  */ 

/*  FROM  KORE  START  */ 
VPM(??DS .LASTSRUN) .SPSREG  *  STACKSPTR?  /*  SAVE  STACK  */ 
VPM(?RDS. LASTSRUN) .SSSREG  =  STACKSSEG?  /*  STATE  */ 

END? 


END? 
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/* 

»x 

WORD, 

/* 

EX 

WORD. 

/* 

ES 

WORD, 

/* 

START 

POINTER,  /*  I?,CS  */ 

/* 

EL 

WORD)  AT(MCNITORSSTAC<$ABS ) 

/*  INITIAL* 

/*  0,0,0,  ?,e,P,?,0, P.0  .0,0,0, 0.0.0  .0.0,0. e.0, 0.2.0, 

/*  p>  y  P  ,  P  ,  ? ,  ?  P  P,?,P  ?,?,P  F,?,P,P,P,0,P,P,P,?,0, 

/*  I  NT  SRFTUR  N !  *A  H 0 0  !  ?  2  !  0  !  P 0  ,*0  ,  <?M0  N I  TO r.  $  PROC  ,’  200 H  )  ; 
/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MX  TRAC  I  ****/ 
/***«  MXTrACE  ****  MXT?.4CE  *****  MXTrACE  ****  MXTRACE  ****/ 


/  * 0 3  5 4 *  *  *  *  *  *  £  -'I-'  #  if  #  *  *  ❖  #  =:•-  if  if  if  if  £  if  if  if  if  if  if  if  if  V  *  if  if  -f  V  if  if  if  if  if  *  *  *  if  =',:  if  if  if  if 

/*  RET  $ V?  PROCEDURE  ROWE  5-22-84 

/* - 


/*  USED  BY  THE  SCHEDULE?  TO  FIND  OUT  WHAT  IS  THE  CURRENT 
/*  RUNNING  PROCESS.  IT'S  INDEX  IN  VPM  IS  RETURNED. 

/if - 

/*  CALLS  MADE  TO:  OUT$HEX  OUTSCHAR 


*/ 

if/ 

if/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/ififif  if  if  if  ^fifif  if  Utifififif^tif  it  V  #if  if  if  if  ^  tfif^if  if  if  ^if  if  t^ififif  if  if  ifif^^if  if  if  if  if  if  if  if  HVif  if  / 


RET$ VP :  PROCEDURE  BYTE  REENTRANT  PUBLIC; 
DECLARE  RU  NNI.NG$  V?i  INDEX  3YTEJ 


/****  MXTRACE  ****  MXTRAC? 
/****  MXTRACE  ****  MXTRACE 
/*  CALL  OUT$LINE((?MSGl  ); 

/s:« »:ssj: sj;  MXTEACF  ****  MXTRACE 
/****  MXTR4CE  MXTRACE 


*****  MXTRACE  *** *  MXTRACE 
*****  MXTRACE  ****  MXTRACE 

*****  MXTRACE  ****  MXTRACE 
*****  MXTRACE  ****  MXTR»CE 


Jit***^ 
si:***  / 

if  If  if  if  / 
ifififif  / 


/*  SEARCH  THE  VP  MAP  FOR  RUNNING  PROCESS  INDEX  */ 

DO  PUNNI NG$V?$ INDEX  =  PROS . VPSS T ART  TC  ?RDS.V?$ENDJ 

IF  VP  M(  P.  U  N  N I N  G  S  V  P  $  I N  D  E  X  ). STATE  =  RUNNING 
THEN  GC  TC  FOUND; 
end;  /*  DO  */ 

RUNNING $VP$INDEX  =  PP.DS  .  LAST$  RUN  ; 


FOUND: 

/****  MXT7JACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ifififif/ 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  **<•*/ 

/*  CALL  CUT  $  L I N  E ( OMS  G 1 A  )  J 
/*  CALL  OUT$REX ( RUNNINGS  VPS  I NDEX  )  5 
/*  CALL  CUT  $  CHAR (CR  )  * 

/*  CALL  OUTS C  HA  R ( LF ) J 

/****  MXTRACF  ****  *XTRA CE  *****  MXTRACE  ****  MXTRAC7  ****/ 

/****  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  ****/' 

RETURN  RUNNINGS VP$ INDEX? 

ENT?  /*  RETSVP  PROCEDURE  */ 


y.\  v>  y, 


'  .v  iV.-' 
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DECLARE  IDLES  STACK  STRUCTURE 


(LENGTH!  02PH) 

RETSTYPE 

P? 

DI 

SI 

DS 

DX 

cx 

ax 

EX 

ES 

START 

FL 

INITIAL( 


WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD, 

WORD  , 

POINTER,  /*  IP.CS  #/ 
WORD)  AT(  IDLESSTACKSA.BS  ) 


0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0..: 
0PPP'7  PP000000PP0',P000P0  < 
INT$RETURN,7A^,0,0,0,0,0,?,0,0,0IDLE$Pr6c!200H 


DECLARE  I N IT  SSTACK  STRUCTURE 
( LENGTH ( 030H)  WORD, 

RET$TY?E  WORD, 

BP  WORD, 

El  WORD, 

SI  WORD, 

DS  WORD, 

DX  WORD, 

CX  WORD, 

AX  WORD, 

EX  WORD, 

ES  WORD, 

START  POINTER,  /*  IP.CS  */ 

FL  WORD)  A T (I N I ?$ S T S C K $ AE S ) 

INITIAL! 

C, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

0 ,  0,0. 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0.0, 0,G,0, 

I  NTS  RETUR  N  ,  7  A  H, 0.0, 0,0, *,0,0,0, 0*1  NI TI  AL$  PROC  ,  20  OH  ) 

/*  200H  SITS  THE  IF  FLAG  */ 


NXTPACE  **** 

mxTPACE  ***#*  MXTRA.CE  ****  MXTPACE  v***  / 

PX TRACE  **** 

MXTRA.CE  *****  MX'TRACE  ****  MXTRAC?  ***•*/ 

/*  DECLARE  KQNITOBSSTACE  STRUCTURE 

/*( LEN 

GTH ( 030H ) 

WORD, 

/* 

RFTSTYPE 

WORD, 

/* 

BP 

WORD, 

!~  < 

/* 

DI 

WORD, 

■ 

/* 

SI 

WORD, 

V  •»  ^  1 

wv-y 

/* 

DS 

WORD, 

wV-V’ 

L'  •  "  « 

/* 

DX 

WORD, 

•  ;  •  . 
"V 

/* 

CX 

WORD, 

,  •*,  ■*,  •*.  •’ »  i  m  ,  •  a  •  »  *  •  *  •  "  •,*  •  *  •.*  *»  %  *»  A  *»  *■  *"*  *  _»  V*  *_•  *_■  ’  "•  *.* 


r ) , 


/♦  VSG4A  ( *  )  BYTE  INITIAL  ('  SET  VP  TO  READY :  VP  = 

/♦  MSG7(*)  BYTE  INITIAL  ('ENTERING  GETWORK ' , 13 . 10 . '% ' ) , 

/*  MSG?  A ( * )  BYTE  INITIAL  ('  SET  7?  TO  RUNNING:  VP  = 

/♦  MSG7B(*)  BYTE  INITIAL  (  '  S  ELECTEBSDBR  =  , 

/*  MSG10' ♦ )  EYTE  INITIAL  ('ENTERING  IDLE$VP  ',13,10,'%'), 

/♦  MSG11(*)  EYTE  INITIAL  ('UPDATE  IDLE  COUNT  ',13,13,'%'', 

/*  MSG12 (*  )  BYTE  INITIAL  ('ENTERING  KERNELS  INI? ',13, 13,  '  t '  > , 
/♦  MSG20(«)  BYTE  INITIAL  ('ENTERING  LOCATESEVC  ',10,13,'%'), 
/*  MSG22 (♦ )  BYTE  INITIAL  ('ENTERING  LOCATESSEO  ',10,13,'%'), 
/*  MSG23 ( * )  BYTE  INITIAL  ('  FOUND' ,12,13 , 

/*  MSG24(*)  BYTE  INITIAL  ('  NOT  FOUND  '  ,  10 , 13  ,  '%  ' ) ; 

/♦ 

/♦DECLARE 

/*  CP.  ^LITERALLY  '0DH', 

/♦  L7  LITERALLY  'OAH'J 

/♦ 

/*OUT$CHAR:  ?ROCEDURE(  GEAR  )  EXTERNAL? 

/♦  DECLARE  CHAR  BYTE? 

/♦end; 

/♦ 

/♦OUTiLINE :  ?RCCEDURE(  L I NE$PTR  )  EXTERNAL? 

/*  DECLARE  LINES PTF  POINTER; 

/♦end; 

/♦ 

/♦OUTSNUM:  PF.OCEDURE(  NUN  )  EXTERNAL? 

/♦  DECLARE  NUM  BYTE? 

/♦end; 

/* 

/♦OUTSDNUM:  PROCEDURE^  DNUM  )  EXTERNAL? 

/♦  DECLARE  DNUM  WORD* 

/♦end; 

/* 

/♦OUT$HEX :  PROCEDURE (B)  EXTERNAL? 

/*  DECLARE  B  BYTE? 

/♦end; 

/♦ 

/♦INSCHAF.:  PROCEDURE  (  RETS  PTF  )  EXTERNAL? 

/*  DECLARE  RETSPTR  POINTER? 

/♦END? 

/* 

/♦IN$DNUM:  PROCEDURE  (RET$PTR)  EXTERNAL? 

/♦  DECLARE  RETSPTR  POINTER? 

/♦END? 

/♦INSNUM:  PROCEDURE  (RETSPTR)  EXTERNAL? 

/♦  DECLARE  RFT$PTR  POINTER? 

/♦END? 

/♦♦♦♦  MXTRACE  ♦♦♦♦  MXTRACE  ♦♦♦♦♦  MXTRACE  ♦♦♦♦  MXTRACF  ♦♦♦♦/ 
/*♦*♦  MXTRACF  *♦♦♦  MXTRACE  *♦♦♦*  MXTRACE  ♦♦♦♦  MXTRACE  ♦*♦♦/ 

/♦0273*^**  *♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦  ♦♦♦♦♦♦♦♦♦♦♦♦’••♦♦/ 
/♦  STACK  DATA  &  I NITI ALI AZTI ON  FOR  SYSTEM  PROCESSES  */ 


I  I  >  »■!!■  I  «  .  i 


3D* A INT$ELAG (  MAX$CPO  )  BYTE  EXTERNAL, 
Mr.iY?S(  MAX^CPU  )  BYTE  7X7E?  N  AL , 

NR$R?S  BYTE  EXTERNAL. 

GLOBALSLCCE  BYTE  EXTERNAL. 

rj  f  C  L  4  p  V 

EVENTS  BYTE  EXTERNAL, 

EVC$TBL(100)  STRUCTURE 
( E VC  AN  A  ME  BYTE, 

VALUE  WORD, 

THREAD  BYTE)  EXTERNAL? 


DECLARE 

SEQUENCERS  BYTE  EXTERNAL, 

SEC$ TABLE (100)  STRUCTURE 
(SEOANAME  BYTE, 

SEQ$V A. DUE  WORD)  EXTERNAL? 


/  *  0 1  5  9  *  *  *  *  *  *  *  ;  i  *  *  * *  *  *  *  *!*  **  *  #  *  =o  *  #  *  *  *  j[:  #  :Jt  jjt  #  *  *  s[. *s  #  *  si:  v  *  t- * 

/*  DECLARATION  OF  EXTERNAL  PROCEDURE  REFERENCES 
/*  THE  FILE  AND  MODULE  WHERE  THEY  ARE  DEFINED  ARE 
/*  LISTED. 


**/ 

*/ 

*/ 

*/ 


INITIAL^ PR OC:  PROCEDURE  EXTERNAL?  END? 

/*  IN  FILE  :  INITKK  .SFC  */ 

/*  IN  MODULE:  IMIT$MCL  */ 

AWAIT:  PROCEDURE  ( EVC$  ID  ,  AWA I TEDA  V  'L'JE  )  EXTERNAL? 

DECLARE  EVC$ID  BYTE,  AWAITED LVALUE  WORD? 

END? 

VPSCHEDULEF :  PROCEDURE  EXTERNAL?  END? 

/*  IN  FILE:  SCHED. ASM  */ 

DECLARE  INTVEC  LABEL  EXTERNAL? 

/*  IN  FILE:  SCHED. ASM  */ 

DECLARF  INTRSVECTOR  POINTFR  AT(0110H)  I N I TI AL ' 01 NTVEC  )  ? 

/*  IN  FILE  :  SCHED. ASM  */ 

/*  THESE  DIAGNOSTIC  MESSAGES  VAY  EVENTUALLY  BE  REMOVED.  */ 
/*  THE  UTILITY  PROCEDURES,  HOWEVER,  ARE  ALSO  USED  BY  THE  */ 
/*  M0N I  TOR  PROCESS.  THEY  SHOULD  NOT  BE  REMOVED.  */ 

/****  nxTFACE  ****  MXTKACE  *****  MXTRACE  ****  MXTRACE  ****/ 
/****■  MXTRACE  ****  MXTRACE  *****  MXTRACE  ****  MXTRACE  **** / 
/*  DECLARE 

/*  MSC-1(*)  BYTE  INITIAL  ('ENTERING  F.ETSVP  ',13,10,'%'), 

/*  MSG1 A ( *  )  BYTE  INITIAL  ('  RUNN ING$VP$ INDEX  -  *'), 

/*  MSG4  ( *  )  BYTE  INITIAL  (  'ENTERING  F.DYTHIS7P  ',13,10,'%'), 
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/****  m X T 7  ACE  *****  EXTRACT 
/*  IDLE$STACK$SEG 
/*  IDLFAST ACT $AES 
/*  INIT$STACK$SEG 
/*  INIT$STACK AABS 
/*  MONITOR  AST A.CKASEG 
/*  M  0  N I T  0  R  $  S  T  A  C  X  $  A.  B  S 

MX TP ACE  ****  MXTRACE 
/****  M XTR ACE  ****  MXTRACE 


mutx#  MX? -ACE  ****  KXTr'CE  **** / 
LITERALLY"  ’  '?C50“',  1  /**£*:?***/ 


/ 


LITERALLY  '?C50CH', 

LITERALLY  '0C56H'. 

LITERALLY  '0C583H', 

LITERALLY  '?C6?K', 

LITERALLY  '0C£00H'i 
####*  MXT  RACE  *****  MX  TRACE  ***#/ 
*****  MXTRACE  ****  MXTRACE  **** / 


/** ******  / 

/*=•*  ******/ 

/**  ******  / 
/  *  ***  *  *  *  *  / 


/*00  £4***************************************************** 


/* 

PROCESSOR  DATA 

/* 

INFORMATION 

/* 

PROCESSOR  ON 

/* 

/* 

CPUS  NUMBER : 

/* 

/•'- 

V?$ST ART : 

/* 

/* 

V  ?  $  E  N  D : 

/* 

VPSSPERACPU : 

/* 

/* 

LAST $RUN : 

/* 

/* 

/* 

COUNTER  : 

/* 

* 

* 


IT  IS  RESIDENT. 


UNIQUE  SEQUENTIAL  NUMBER  ASSIGNED  TO 
THIS  REAL  PROCESSOR . 

VPM  INDEX  0?  THE  FIRST  VIRTUAL 
PROCESS  ASSIGNED  TC  THIS  REAL  CPU. 
INDEX  IN  VPM  OF  LAST  VIRTUAL. . . 

THE  NUMBER  OF  VP  ASSIGNED  TC  THIS 
REAL  CPU.  MAX  IS  10. 

VPM  INDEX  OF  THE  PROCESS  MOST 
RECENTLY  SWITCHED  FROM,  RUNNING  TO 
EITHER  READY  OP.  WAITING. 

AN  A  FBI  TP  ARY  MEASURE  0?  PE.  FORM  A.NCE  . 
COUNT  MADE  WHILE  IN  IDLE  STATE. 


DFCLARF  PHDS  STRUCTURE 
(CPUS  NUMBER  BYTE, 

VP5START  3YTE , 

V?*END  BYTE, 


V  PSS  PER  $  CPU 
LAST  $  RUN 
COUNTER 


BYTE, 

BYTE  , 

WORD)  PUBLIC  INITI  AL(P,e  ,v'.7,e,0)  J 


7*011?  V'l'»r¥il;  'i'  * 

/*  GLOBAL  DATA. 
/*  DECLARED 
/* 


is  **•  n*  v  v 


sjc  5j:  #  *  "|i  5,c  #  >r  s£  sfc  ❖  :!c  SJe  #  aCe  v  >;«  #  5 


v  ^!*  '!■  *r  '«*  sj*  *i*  v  v 


BASE  DECLARATIONS 
PUBLIC  IN  FILE 

IN  MODULE 


GLOBAL. SRC 
'GL03AL$M0EULS 


DECLAFE  VPM (  M  AX$  C?U$  $  $$  M A  X$  VPS  $  CPU  )  STRUCTURE 


:V?$ID  BYTE, 
STATE  BYTE, 
VPSPRIORITY  BYTE, 
EVC$ THREAP  BYTE, 


E7C$  AWAVALUE  WORD, 


SPAR EG  WORD, 

S S $ R EG  WORD)  EXTERNAL,* 


DECLARE 

CPU4INIT 


BYTE  EXTERNAL 


°RDS . VPSEND  =  PHDS .  VPSSTART  +  l: 

PHDS . VPSSPERSCPU  =  2J 

/*»**  MCO'-'TEX  ****  MCORTEX  *****  MCORTEX  ****  MCCRT-X 
/«***  MX'TRACF  ****  MXTRACF  *****  MXTRACE  ****  MXTRACE 
/*  PHDS  .VPSEND  =  PHDS  .  VP S START  +  2J 
/*  PgDS  .  VPSSPERSCPU  =  s; 


/***v  MXTRACE  ****  MXTRACE  **** 
/****  MX  TRACE  ****  M  XT  RACE  **** 

/*  INITIALIZE  THE  V?  PAP  EOT.  ID 
/*  AND  MCNITO"  PROCESS  */ 

VPM ' PHDS . 7 Pi ST  APT) . VPS  ID  =  255? 
VPN ; PRDS .VPSSTART) .STATE  =  15 


*  MXTRACE  * 

*  MXT -  ACE  * 

LE  AND  I  NIT 


*  * "  M T  h.  A  C  E 
***  NX  IP. ACE 

PECO  */ 


7  PM  •'  PRDS  .VPSSTART)  .  VPS  PR  IOP.  I TT  =  0? 
VPN >'  PEPS  .VPSSTART)  . EVCSTHREAD  =  255: 


v PM •’  ??DS  .  V?$START  )  . EVC$A  WSVALUE  =  05 
VPM  ■  PRDS  .  VP$S  TA.RT  ).  SP$  RED  =  60E? 

VPMf  ??DS  .  7PSS  "ART  )  .SSSPEO  =  INI  TS3TACKSSEG  » 
VPM'  PRDS .VPSSTART  +  1  )  .VP$ID  =  2555 
VPM.(PRrS.7P$START+l)  .STATE  =  l: 

VPM'  PRDS  .  7?$S  TART+l  )  .  V PSPF.  ICR  ITY  =  2555 
VPN (  PRDS  . V?SS  T  A?  T+l )  . E VC  S THREAD  -  2555 
Vpv( PRDS .VPS ST ART +1 )  .EVC SAWS VALUE  =  0: 


7PM( PRDS .VPSSTART+1 ) ,SP$RE3  =  60FJ 

7PM( PrDS .VPSSTAET+1) ,SS$?F5  =  I DLE$5 TACXSSZO J 


/****  MX  TRAC5*  ****  MX  TRACE  *****  MX  TRACE  ****  NX  TRACE 
/so***  MXTRACE  ****  MXTEACE  ***-■■*  MXT?.  ACE  ****  MXT  RACE 
/*  VPM ( PRDS  ! V ?$ST A.RT+2 *)*." VPSI D  =  8?FH:’ 

/*  VPM  (  PRDS.  V«$STAP.T+2).  STATE  =  7? 

/*  VPM( PRDS . VPSST AFT+2  ) . 7PSPRI0PITY  =  ?; 

/*  VPM  (  PRD  S  .  V  PS  START +2  )  .  EV C  $TTJP.  EAD  =  2555 


/*  VPM' PRDS .VPSSTART  +  2  )  .EVCSAWS VALUE  =  0? 

/*  V  PM (PHDS .  7  ?S5  T  AR T+2.) .  S  ?S?EG  =  60KJ 

/*  VPM  (  PRDS  .V PSSTART+2  ) .  SSSP.EG  =  MCNITORSSTACX$S?D; 


/  »•»  j'» «'/  .  - 

/  V  v 


MXTRACF  **** 
MXT-  AC?  **** 


MX TRACE  *****  MXTRACF 
MXTF.ACF  *****  MXT?. ACE 


****  MXTRACF 
####  MXTPACE 


vp.SRPS  =  NR  SR  PS  +  l; 


MCOcTEX  **** 

MCORTEX 

v  5>*  v  V 

MCORTEX 

«■«  y*  y#  w* 
•r  V  *>' 

MCORTEX 

/**** 

M COR TEX  **** 

MCQRT  *X 

•>.  »■'  o. 

*t*  *i*  '<•  »r 

MCORTEX 

T  *l"  ^  V 

MCORTEX 

NF.SV  PS  ■  PRDS  .  C  PUSNUM 

1PER  )  -  2 

i  • 

> 

/ft-** 

M CORTEX  **** 

MCOF.TEX 

#  *  *  # 

MCOF.TEX 

MCORTEX 

VXTP ACE  **** 

MXTRACF 

?[•  3|*  #(t 

MXTRACF 

MXTRACE 

/*  N  RSV  ?S ; PHDS . CPUS NUM RES ) 

—  o  i 

/  # if. 

|*XT1'  ACE  **** 

MXTPACE 

#  tf.  #  ;)c  j[s 

MXTRACF 

# 

MXTRACE 

flttfiyk 

m X  ^  A  C  ^  * 

MXTRACF 

$$$## 

MXTRACE 

5{?  5):  >J?  sjc 

MXTRACE 

=  ?  ; 


HD'.vS  INTSELAO  (  Pi-  DS  .  CPUSNUMBEF.  } 
TNAEL2J 


n  -3 


j  *- 


MC 0RTr7  *****  N'CCRT rX  *****  MCORTIX  -----  v CORTEX  * 

.  FI :  LCC85  KCEI.LNK  ADDRESS  ES  (  S  FOMENTS  {  S, 

ST  AC  E  !  2  C7P21* )  ,S 
INITMOr_CCI)F.  04392E)  ,& 

GLOB  4LM CDULE_D AT s ( 2E7S42K )  ))& 

OEGSIZE ( STACK ;7?3)  K 
RES FR'/t 'BE  TO  23AFFH ) 

WARNING  5c:  SEGMENT  IN  RESERVED  SPACE 
SEGMENT:  i'NC  N AM E  ) 

WARNING  55:  SEGMENT  IN  RESIR VET  SPACE 
SEGMENT :  INITMOD  COTE 


S  Y  v  F  0  L 

TABLE 

OF  1 

MODULE  L1M0DU 

ILE 

^EAC  F 

ROM  FIL 

,3  fC 

ORE  .LNE 

WRITTEN  TO  FILE 

:F2 :KORF 

EASE 

OFFSET 

TYPE  SYMEOL 

EASE 

OFFS 

1  FT  TYPE  SYMEOL 

PC  6  Ah 

00  023 

PUB 

?RLS 

0RB2K 

0332K 

PUB 

IDLT?ROC 

2B30H 

030  2  F 

PUB 

LCCATFSEO 

03B2H 

02S4E 

PUB 

LCC  s  TIEVC 

23B0P 

222FH 

PUB 

CETWORK 

OP  BOH 

21E33 

PUB 

GETS? 

2B3UE 

01AFE 

PUB 

SAVECCNTEXT 

03  3  BE 

01P5H 

PUB 

P.CYTHI  SV? 

0BB2H 

013  4  H 

PUB 

l-.FTVP 

OBEBH 

268BF 

PUB 

CPE  ATIPP.OC 

25FBH 

062AC 

PUB 

TICKET 

2BI3H 

25C7H 

PUB 

CREATES!© 

23EBP 

33CFH 

PUB 

PR  FEMPT 

2 BE  Bn 

0223F 

PUB 

AE VANCE 

OPFPH 

P17SF 

PUB 

AWAIT 

'’RF3K 

P127H 

PUB 

BEAD 

<r  p  p 

70 1  TP 

PUF 

CHEAT  FI  VC 

2BEBH 

002EF. 

PUB 

GATEKEEPER 

2C6BH 

200  OH 

PUB 

VPSCREEULER 

0C6BH 

2  2  33  H 

PUB 

INTVEC 

*439  F 

0202F 

PU"3 

IN’ITI  ALPROC 

E794H 

21923 

PUB 

VPM 

P'7  94  H 

0533K 

PUF 

SIOTAPL7 

F794H 

25923 

PUB 

SEQUENCERS 

L7U4H 

059 1H 

PUR 

CPU  I N IT 

I7S4H 

2002H 

PUB 

EVCT3L 

*  7  94  E 

P59PE 

CUB 

EVENTS 

F794H 

25P-5H 

PUB 

KDW I  NT FLAG 

J794H 

257  CP 

PUB 

NR  VPS 

E794H 

057EH 

?UE 

NRP.PS 

£794  H 

057  AH 

PUB 

GLOBA LLCCK 

vEMOFY  'CAP  07  v0DULF  L1M0PULE 
'■* EAT  FE  CM  FILE  K  0  R  E  .  L  N  K 
WRITTEN  TC  FILE1  :  F  ? :  E  0  R  E 

VCDL’LF  START  ADDRESS  PARAGRAPH  =  0EE3E  OFFSET  =  0330H 


SEGMENT 

MAP 

START 

STOP 

LENGTH  ALIGN 

N  a  ME 

CL 4  SS 

00113H 

031 13H 

0304K  A 

ABSOLUTE ) 

0439 OK 

043  a 9E 

001 AH  V 

INITMOD  CODE 

PEP3PH 

3EFB3F 

03B4H  W 

LI  MODULE  CODE 

CODE 

PBFB4F 

3CF9FF 

07ECH  * 

L2 MODULE  CODE 

CODE 

DC  FA  OK 

PC  6  A  ?H 

0000H  V 

GLOB  A  LMODULE_C 

CODE 

-ODE 

0C6A0H 

0CFA7F 

0033 K  i 

LI  MODULE  DATA 

DATA 

PC6a  SF 

PCS 5  BH 

0000H  W 

L2M0Dl)LE~D.'  T " 

DAT  ? 

3C6»£? 

PCS4  8F 

0001 F  V 

I  NIT, MOD  DATA 

DATA 

0C0B0F 

3  C  6  B  3  K 

2300H  o 

??SEG 

3  CSE  3P 

0C746H 

0097H  G 

SCHEDULER 

0C730K 

0C7F4F 

0P75H  *' 

STACK 

STACK 

3CP30H 

PC379K 

007AF  A 

:  ABSOLUTE) 

PC320E 

3C8F9H 

007AH  A 

•  ABSOLUTS ) 

F7942K 

F7FFEE 

063DH  W 

GLOB ALMODULE_D 

DAT4 

-AT  A 

<3000H 

? 3 00 PH 

3300 H  W 

MEMORY 

MEM  OR 

NXT FACE 


MXTf. 1 CF  *r  ^  v  *£  p  £  c  Y  ***  »'*  •»'  *i*  X  T  **  P  Cr  ***  *»*  *>"  *i* 

ISIS-II  "CS-R6  LOCATER  ,  VI. 1  INVOKE!  BY: 

■ FI : LCC36  KOBE. INK  ADDRESSES ( SEGMENTS ( S 

S  T  A  C  K  { 0  C  4?  3  r  )  ,& 

lNirMCI}_CCrE''043?0H) 

GLOB  ALMODULE  DAT  A (0E7942H) ) )&, 
segs i zf; stack  ;?£?:)  )S, 

RESERVE ( 0H  TO  0ASFFH) 

WARNING  56:  SEGMENT  IN  RESERVED  SPACE 
SEGMENT:  'NO  NAME) 

WARNING  56:  SFGMFNT  IN  RESERVED  SPACE 
SEGMENT:  INITMOD  CODE 


SYMPCL 

TABLE 

CF  MODULE  L1MODULE 

RE » D  FROM  FIL 

E  XOEE.LNX 

WRITTEN 

1  TO  FI 

L? 

:  F0 : KORE 

3ASECFFSET  TYPE  1 

SYMBOL 

BASE 

CEFSET  TYPE  SYMBOL 

0C0DP 

000  AH 

PUB 

PR  DS 

0AC0H 

04E6P 

PUB 

MONITOR  PR OC 

0AC0H 

049  CH 

PUB 

IDLEPROC 

0AC0H 

33JDH 

PUB 

LOCATES  EG 

0  4C0F 

035FH 

DUB 

LOCATFEVC 

0AC0F 

0293H 

PUB 

OETWORK 

0  AC0F 

026BU 

PUP 

GETS? 

PA,  COP 

0236P 

PUB 

SAVECONTEXT 

0AC0F 

01IEH 

PUB 

RDYTH IS  VP 

0AC3H 

3165H 

PU3 

RET  VP 

0B4#H 

0C06F 

PUB 

OUTREX 

0B4AH 

0B01H 

PUB 

INHEX 

0B4AP 

3  A  P 1 H 

PUB 

SENDCHAP. 

0?4AR 

PA.eFH 

PUB 

RFC  V CHAR 

3  34  AH 

0A62P 

PUB 

OUTDNUM 

0B4AH 

0A2SP 

PUB 

I.NDNUM 

■'P4A  F 

0  41  IF 

PUB 

OUTNUM 

0P4AR 

09C2H 

PUB 

OUTLINE 

0F4AH 

09  AAR 

DUP 

O'JTCHAR 

0B4AH 

096  FP 

PUB 

INNUM 

0R4.AR 

097  4H 

PUB 

INCHAR 

0B4AH 

0S04H 

PJB 

c  -.eatepp.oc 

0B4AH 

079SH 

PUB 

TICKET 

034AH 

0712H 

PUB 

CREATES  ?.Q 

PE4A.F 

04F9K 

PUB 

PREEMPT 

OB4AH 

033CH 

PUB 

ADVANCE 

0P4A.W 

026  IE 

PUB 

AWAIT 

0B4AH 

020DH 

PUB 

READ 

0R4AH 

0162P 

PUB 

CREATESVC 

0P4AH 

0062P 

PUB 

GATEKEEPER 

0C31H 

00  V-7  PR 

PUB 

VPSCHEDVLEP 

?  C31H 

0033H 

PUB 

INTVEC 

0439P 

030  2  p 

PU  P 

INITI ALPROC 

r794H 

0192H 

PUE 

V?M 

I7  94F 

0593E 

PU3 

SEOTABLE 

»794H 

0592E 

PUB 

SEQUENCERS 

E794H 

059  IF 

5UE 

CPU  IN  IT 

E794H 

00  02 II 

PUB 

E VC TEL 

^7  94  R 

P590P 

PUB 

EVENTS 

F794H 

0566H 

PUP 

HD* INTEL AG 

V 

0  r'7  C  P 

PUB 

NRVPS 

1794? 

057  BH 

PUB 

■JR  EPS 

D7  94  H 

067  AF 

PUB 

GLOBALLOCX 

126 


-i. 


-*  -a  -«  -«  •_* 


memory  map  of  nodule  limodule 

READ  FROv  FILE  KOHS.LNK 
ITT  EN  TO  FILE  :F0:KCRE 


*ODULF:  ST’RT  SDD?.ES5  PARAGRAPH  =  2AC0H  OFFSET  =  0030H 
SEGMENT  Ntp 


START 

STOP 

LENGTH 

ALIGN 

NA.  ME 

CLASS 

0011PH 

r?ii3H 

0004H 

A 

( ABSOLUTE) 

04390H 

243MH 

0025H 

W 

I .NIT MOD  CODE 

CODE 

2AC00H 

0B4ASH 

0SA7K 

V 

L1M0TULE  CODE 

CODE 

0?4AelH 

CC^DQH 

0C32H 

V 

L2M0PULE  CODE 

CODE 

00 3D  A P 

? CODAP 

2000  H 

w 

•CDF 

GLOEALMODULE_C 

CODE 

PC  PD  AH 

0C22CH 

2 1 33  H 

w 

LI  MODULE  DATA 

D  4  T  A 

2C22EH 

0C2F1H 

00  54? 

w 

L2M0DULE  DATA 

DATA 

0C2F2H 

•2C30.EE 

001  EH 

A 

INITMOD  DATA 

DATA 

'/  031  CP 

CC31PH 

0000H 

G 

??  SEG 

0C310P 

0C3A  PH 

0097H 

r 

•j 

SCHEDULE?. 

t*C48'2F 

0C4F4R 

0075H 

A 

STACK 

STACK 

?C5e?H 

7C579H 

207AH 

f 

(ABSOLUTE) 

>'*CS90H 

7C5F9E 

007AH 

A 

(ABSOLUTE) 

PCC20P 

2CS79H 

C07AH 

A 

'ABSOLUTE) 

V7C42H 

E7FFEK 

06BDH 

W 

■AT  A. 

'* 

GLOB ALMODULE_D 

DATA 

E8P00H 

E8300E 

20  00H 

MEMORY 

MEMORY 
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;  s  •. 
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APPENDIX  I 


SCHEDULER  S,  INTERRUPT  HANDLER  SOURCE  COD^ 


The  A S PR 6  code  in  file:  SCR ED . ASM  is  cart  of  LEVEL  I. 
No  special  attributes  are  required  fcr  the  assembler.  This 
module  is  linked  into  file:  KCRE.LNK,  and  its  memo'*:/  •rap  is 
included  in  the  nap  for  KCRE.  EORE  is  the  development 
system  version  of  the  file  KOFE.OPS  leaded  by  MCOr'TEX.CM"' 


*  *f2?  #  t?  *  >.-•  *  #  «  v >?  #  # »:•'  ■ 

;*  SCHEDULER  ASM  FILE 

;  * - - 

;*  THE  FOLLOWING  ARE  THE  EXTE 
;*  3Y  THIS  vqDULE. 


>(c  jji  tf  if  tf  #  W  V  >(•'  v  •I1’!*  V  V  V  V  V  #  #  ;i-  V  -■■  JF  W# 

ROVE  6-22-;j4 


M4L  PLMH6  ? HOC  FLUFFS  CALLED 


FXTF.N  S  A  VECCNTTXT : F  AH 
EXTRN  LETS ?:FAR 
FXTRN  GZTWCFX  tFAH 
FXTK  N  F  D YT  H IS  VP :  FA ?. 
EXTRN  PHDS  :EYTE 
EXTHM  HDWINTELAG  :3YTE 
EXT? N  GLOP  *LLOCX : BYTE 


SCHEDULER  SEGMENT 

PUBLIC  VPS CHZDULER 
PUBLIC  I  NT  VIC 

VPSCHEDULEH  PRCC  FAR 

ASSUME  CS: SCHEDULER 
ASSUME  DS : NOTHING 
a SSUME  SS:  NOTHING 
ASSUME  ES:  NOTHING 

5  ENTRY  POINT  FOR  A  CALL  TO  SCHEDULE? 


CLI 

push  rs 

MOV  CX , OH 


;SWA?  VIRTUAL  PROCESSORS.  THIS  IS  DONE  BY  SAVING  THE 
5  STACK  BASS  POINT7?  AND  THE  RETURN  TYPE  ELAG  ON  THE 
; ST*  CX ,  AND  BY  SAVING  THE  STACK  SEGMENT  AND  STACK 
; POINTER  IN  TUH  VIRTUAL  PROCESSOR  MAP. 


INTJOIN:  PUSH  BP 
PUSH  CX 


; S A V E  "CURRENT"  STACK  BASE 
JSAVE  ’CURRENT  *  IRET_I\D  FL»G 


MOV  A  X  , S  P 

pUSH  ax  fSET  UP  SAVESCONTSXT  PARAMETERS 
PUSH  SS  J S ET  UP  SAVESCONTEXT  PARAMETERS 
CALL  SAVECCNTFXT 


CALL  OETWO^E 
PUSH  AX 
CALL  GETS? 
POP  SS 
MOV  SP.AX 


JGET  NEW  STACK  SEGMENT 
;TSMPORARY  SAVE  OF  STACK  SEGMENT 

;get  new  stack  pointer 

; INSTALL  NEW  STACK  SEGMENT 
;  I  NST  ALL  NEW  ST*CK  POINTS?. 


iSWA?  VIRTUAL  PROCESSOR  CONTEXT  COMPLETE  AT  THIS  POINT 


129 


;  NOW  OPE?  AT  I  NS  IN  NEWLY  SELECTED  PEOCESS  STACK 


POP  CX  iOFT  I ?iET_ I ND  EL.A 0 

POP  5?  ; INSTALL  NEW  STACK  EASE 


?  CHECK  FOR  RETURN  TYPE,  NORMAL  CR  INTERRUPT 

CVP  CX.77K 
JZ  I  NT  R  FT 

NCRM_RFT:  PC?  PS 

5  UNLOCK  GLOB  AL$LOCK 
MOV  AX.SEG  GLOBALLOCK 
MOV  ES  ,  AX 
MOV  ES :GLOB  ALLOCK  ,  ? 

STI 
R  E  T 

VPSCKEDULEP.  ENDP 


s;:# 


j  *  i-  i,:  s'?  X;  X< * X< ft*,! X:  i,:  # X: *  #  j[s 5;: ijs  j|: :|t  £ j|s j|:  ;;=X= 


.**  INTERRUPT  HANDLER 


INTERRUPT  HANDLE-  PRCC  NEAR 


ASSUME  CS  :  SCHEDULE?. 
ASSUME  DS: NOTHING 
ASSUME  SS : NOTHING 
ASSUME  ES: NOTHING 


INTV  EC: 

CLI 

PUSH 

ES 

PUSH 

ix 

PUSH 

AX 

PUSH 

CX 

CALL 

HAP 

"CV 

AL, 

XCHG 

AL 

CMP 

A  L , 

JZ 

PUS 

PC? 

CX 

POP 

AX 

SAVE  NEEDED  REGs  TO  TEST  INTERRUPT  FLA 


DWARF  I NT_ELA.C 
0 

,ES : HFWI NTFLAG [BX] 


REST  R7GS 


IS  INT  FLAG  ON  ? 

IF  'YES'  SAVE  REST  REGs 
IF  'NOT'  RESUME  PREVIOUS 
EXECUTION  POINT 


;  FLAG  WAS  ON  SC  NEED 
;  RE-SICHZLULF 


PUS"  REST  RIOS :  PUSH  DX 
PUSH  DS 
PUSH  SI 
PUSH  DI 

MOV  AX, SIS  GLOEALLOCK 
MOV  IS  ,  AX 

CK:  M0’J  AL.119  ?  LOCK  GLOBAL  LOCK 

LOCK  XCKG  IS : GLOBAL LOCK  ,  AL 
TEST  A  L  ,  A  L 
JNZ  CK 

CALL  RDYTHISV? 

rev  CX.77H  ;  JUMP  TO  SCHEDULER 

Jr?  I  NT JO  I N 

INTRET:  POP  DI 


PC? 

SI  ; 

RETURN  FOR 

POP 

ds  ; 

PROCESS  WHICH 

POP 

dx  ; 

HAD  PREVIOUSLY 

PC? 

ex  ; 

BEEN  INTERRUPTED 

;  UNLOCK  GLOBALHCCK 

MOV 

AX.SEG  GLOBALLOCK 

MOV 

IS,  AX 

vov 

ES : GLOBALLOCK , C 

POP 

AX 

POP 

BX 

?0? 

13 

STI 

I  RET 

I NTEF  P.UPT_ HANDLER  ZNDP 

;  $  V'  #  *r  *  #  *:  #  ^  *  *  ^  =r  #  if  *  £  *  *  #  if  $  if  *  if  $  if  ififiiftf  *  =1'  *  '-f 


j  rjs  J*i  *  s»;  sje  >•?  5{c  if #  >;■  ?•:  if  j;«  #  if sj- if  if  if  if  it  if  if.  if  if  if  if  if  jjt  if  if  if  jje  if  if  if  if  if  if  sfs  : 


;it 

•  * 


HARDWARE  INTERRUPT  FLAG 


U  A?.DWARE_I  NT_  FLAG  PROC  NEAR 

ASSUME  CS  :SCHErJLSP. 

ASSUME  D3:  NOTHING 
ASSUME  SS: NOTHING 
ASSUME  ES  :  NOTHING 
HDW  TL/.G:  MOV  AX.SEG  PHDS 


APPSNEIX  J 


GLOBAL  2-lh  BASF  £.ND  INITIAL  PROCESS  CODE 

Two  files  are  presented  here:  GLOBAL. SRC  and  l:UTK.S?C 
They  are  loth  separately  compiled  with  the  LARGE  attribute 
Th°y  are  linked  into  the  file:  XOFE.LNF.  They  ar 
represented  in  the  memory  map  for  KOBE  located  at  the  end  o 
Appendix  H.  INITK  will  he  overwritten  by  the  user 


initialization  process 


•  t  -i  *,*  »,■  -  / 


EC 

2-E4 


MARES  sT^IS  vODULE  CONTAINS  DECLARATIONS  TOR  ALL 
0  LORAL  DATA  THAT  RESITES  IN  SPAR  IT  COMMON 
MEMORY.  IT'S  LOCATED  THERE  BY  THE  LOCATE 
M A N D  AND  BY  SPECIFYING  THAT  THE 
G  L  C  B  A  L  $  M  C  D  U  L  E  _  D  A  T A  SEGMENT  BE  LOCATED  AT 
ABSOLUTE  ADDRESS. 


LOBALSMODULE 


/*  THE  FOLLOWING  THRU  LITE?  *L  DECLARATIONS  ARE  ALSO 
/*  GIVEN  IN  THE  LHVEL1  5.  LEVELS  MODULES  OE  THE  OPERATIN' 
/*  SYSTEM.  A  CHANGE  HERE  fcCULD  HAVE  TO  BE  REFLECT 5D  IN 
/*  THOSE  MODULES  ALSO. 


DECLARE 

M  AXA CPU  LITERALLY  '1?', 

M  AX$  V  ?S  $  CPU  LITERALLY  '1?'. 

M  AXS  C  ?U$  $MA  X$  V  PS  $  CPU  LITERALLY  '100'; 


DECLARE 

GLOB  AL$  LOCK  BYTE  PUBLIC  INITIAL(O); 

/*  THIS  SHOULD  REELECT  THE  MAX 5 CPU  ABOVE  */ 

DECLARE 

"nrAFFS  BYTE  PUBLIC  INITIAL(C), 

NR  $  VPS ' MAX  $C?U )  BYTE  PUBLIC 

INITIAL  0 ,7 ,2 ,0  ,0  f 0 ,2  , 2  ,  /  ,  2  )  5 

DECLARE  HDW  A  I N  T  $  F  L  A  G ( M  A  X  ^  C  ?U  )  BYTE  PUBLIC? 


DFCLAR-  EVENTS  BYT?  PUBLIC  INITIALED; 

DECLARE  EVC^TBLde?)  STRUCTURE 
(EVCSNAME  BYTE, 

VALUE  WORD, 

THREAD  BYTE)  PUBLIC 

INITIAL (0EEH ,0,255) ; 

/*  E V C  "FE"  IS  RESERVED  FOR  THE  OP  SYS  */ 


DECLARE  CPU  $  I  N'  IT  BYTE  PUBLIC  INITIAL!?)? 


DECLARE 

DECLARE 

CFCL  *  PE 


end;  / 

/«V  V# 

a- 


SrOUE  NCERS  F  YT  E  PUBLIC  INITIAL!?); 

5EC?TABLE(10e)  STRUCTURE 
!SEQ$NAvE  EYTE, 

SEC£ VALUE  W CRD)  PUBLIC? 


7?y(  K.AX$CPUt$iSI^AX$  V?S$CPU  )  STRUCTURE 


! V?$ I D 

BYTE, 

VP$STATE 

BYTE, 

VPSPRIORITY 

BYTE  , 

E VC £ THREAD 

BYTE  , 

EVC$AW$VALUE 

WORD  , 

SP£B EG 

a-CPD, 

SS£?EG 

WORD)  public; 

*  MODULE  */ 

#  *  *  #  V  * X:  if  if  if  if  V  V  V  if  if  t 

:  if  if  if  sp  if  j)t  if  >Jt  ifif  jfs  if  sfr  x:  Xs  if  Xs  <*  if  si*  if  if  if  if  if  if  **  if  X<  if  X:  s;:  / 
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.’■U-  .  •'•RR'c" v'Vv's'VV  ^W  /R.'R'S'R'S'SV-’R' 


/  #*  *  *#**#  *X  **  *:=  *:sy  *  / 

/*  INITK  MODULE  ~0*E  £-22-84  * / 

/* - v/ 

./*  THE  COPE  SEGMENT  CF  THIS  M<“  TITLE  IS  iE*7  -FS"7ES  SPACE  */ 

/*  BY  T"E  OS  F0-  THE  USE?  I M 1 1 » 1  ?''CFSi.  THIS  IS  */ 

/*  EXECUTABLE  IN  IT'S  0  *».  RIGHT  .  T-US  IF  T1-!  E  US  I?.  POES  */ 

/*  NOT  PROVIDE  AN  INITIAL  P-C'LSS  THIS  r  .  I  .f  ILL  EXECUTE,  */ 

/*  BLOCS  ITSFLF ,  ANT  ITLE  THE  CPU.  THE  APT-ESS  C  '  THE  */ 

/*  INITIAL  COPE  SEGMENT  IS  ?rC"I"EP  -r/?  L* 7EL1  1 N P  IT  IS  */ 

/*  REFLECTED  IN  THE  ?LM  LOCATE  .  THE  ALL  HESSES  */ 

/*  PRC  V I  DEL  MUST  AGREE .  THIS  ??.t'CESS  HAS  THE  HIGHEST  */ 

/*  PRIORITY  A  NT  WILL  ALWAYS  B~  5  '"REPO  1  *  P  FIPST  BY  THE  *7 

/*  SCHEDULER .  */ 

/* _ 

/*  CALLS  M  A  D  E  TO:  A  *  AIT  */ 

/  =!-:;=  s|:  s’: «  s':  =1>  s£  *  s',;  SJ;  s':  <=  s*  *  s*  V  <t#  s,t  <t  «  *  if  sp  <:  s}t  s? « s’,:  *  tf  v  $ sp  <t  *t  *r.  sp  V  sp  JS >P  St  *  sp  sp  V  sp  #  *  V  X:  / 

i MiTSMor s  pc? 


/***  MX  TRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXT?*CE  *****  MXTPSCE  *****  MXTRACE  *****  MXT.-ACZ  ***/ 

/*  DECLARE 

/*  *  S  G 1 3  ( *  )  BYTE  INITIAL' IP. 'ENTERING  INITIAL  PROCESS  ' 

f*  13,13, 

/*  CUTALINE:  PROCEDURE!  PT?  )  EXTERNAL? 

/*  DECLARE  FTP  POINTER? 

/*  FEMD? 

/  *  * s;:  MXTRACE  *****  MXTRACE  *****  MXT° ACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

A  ini  A I  T  :  PROCEDURE!  NAME,  VALUE  )  EXTERNAL? 

DECLARE  NAME  BYTE,  VALUE  WORD? 

END? 

I N  ITIAL$PRGC :  PROCEDURE  PUBLIC? 

DECLARE  I  BYTE? 

/*  AFTER  INITIALIZATION  THIS  PROCESS  ELOCXS  */ 

/*  ITSELF  TO  ALLOW  THE  NEWLY  CREATED  PROCESSES  */ 

/*  TO  BE  SCHEDULED.  */ 

/*  THIS  AREA  SHOULD  BE  WRITTEN  OVER  BY  USER  I N IT  */ 

/*  PROCEDURE  MODULE.  */ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/*  CALL  CUT$LINS(3MSG13) ? 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 

/***  MXTRACE  *****  MXTRACE  *****  MXTRACE  *****  MXTRACE  ***/ 


CALL  AWAIT!  0FEH ,  D? 

END?  /*  IN  ITI AL$PROC  */ 
END?  /*  INIT$MOP  */ 
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